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ONLINE SCREEN DESIGN 


PROGRAM SUPPORT PERIOD 


During a specified number of months immediately following initial availability of each licensed 
Field Developed or Installed User Program, designated as the PROGRAM SUPPORT PERIOD, 
the customer may submit documentation to a designated IBM location when he encounters a 
Problem which his diagnosis indicates is caused by a licensed program error. During this period 
only, 1BM through the program sponsor(s), will, without additional! charge, respond to an error 
in the current unaltered releese of the licensed program by issuing known error correction 
information to the customer reporting the problem and/or issuing corrected or notice of 
availability of corrected code. However, IBM does not guarantee service results or represent or 
warrant that al! errors will be corrected. Any onsite programming servic2s or assistance will be 
Provided at a charge. 


\ ARRANTY 


EACH LICENSED FIELD DEVELOPED PROGRAM OR INSTALLED USER PROGRAM JS 
DISTRIBUTED ON AN ‘AS IS’ BASIE WITHOUT WARRANTY OF ANY KIND EITHER 
EXPRE 3S OR IMPLIED. 


PROGRAMM! JG SUPPORT PERIOD 
Programming sur ort will be availabie until 


Octot er 28, 1977 


During this period, o- lv, IBM through the program 
sponsor(s) will, without additional charge, respond to 
an error in the current unaltered release of the 
licensed Program by ssuing known error correction 
information to the customer reporting the problem 
and/or issuing corrected code or notice of availability 
or corrected code. Ho vever, 1BM does not guarantee 
service results or represent or warrant that all errors 
will be corrected. Any on-site programming services 
Or assistance will be prc vided at a charge. 


When the user encounters a problem which his 
diagnosis indicates is caused by a licensed program 
error, documentation may be submitted to: 


IBM Corporation 
Branch Office G41 
24445 Northwestern Highway 
Southfield, Michigan 48037 
Attn: Jack Horner 

Dale Mansberger 


After the Programming Support Period has expired, 
support for this Progra n will be avaiiable at a charge 
through Systems Engineering Services. 
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Program Introduction 


The effort necessary to develop and implement a 3270 screen design under 
Communications Control Program (CCP) can be a time consuming task which 
is susceptible to the possibility of programmer error. 


The CCP Screen Design Facility was designed to ease the screen development 
task and minimize the possibility of programmer error. The Field Developed 
Program (FDP) accomplishes this by allowing the programmer to design screens 
directly on a 3270, automaticall:: generate Display Format Facility (DFF) speci- 
fications, and give the programner the opportunity to execute the screen format 
prior to performing a Display Format generation. 


This FDP is a significant aid to increasing the productivity of those programmers 
developing new CCP applications for any System/3 using 3270 terminals. 
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Highlights 


THE FDP IS DESIGNED TO BE EASY TO LEARN AND EASY TO USE. All 
functions of the FDP are initiated from a menu screen. In 
addition, each individual function screen contains explanatory 
text. 


THE FDP IS DESIGNED AND WRITTEN TO OPERATE EFFICIENTLY. 
The programs are written as transaction oriented Program Request 
Under Format (PRUF) programs occupying a 14K CCP user task area. 
This design minimizes contention for CPU resources. 


THE FDP IS A DESIGN AID. The capability to layout the 

screen directly on a 3270 eliminates the need to use the display 
layout form. Also, the FDP assists the end-user in visualizing how 
the screen will communicate with the user during execution. 


THE FDP IS DESIGNED TO BE AN AID TO PROGRAMMER PRODUCTIVITY. The —~ 
FDP automatically produces the necessary DFF specifications thereby 

helping to eliminate the possibility of programmer coding error. In 
addition, the capability to review and execute the finished screen 

will allow the programmer to catch screen execution errors prior to 
performing the Display Format Generation. 


om 


THIS FDP IS A DOCUMENTATION AID. The FDP has an automatic 
self-documenting feature which enables the programmer to maintain 
current screen documentation. In addition, the FDP contains an off- 
line batch program that creates documentation of DFF specification that 
were generated prior to obtaining the FDP. 


THE FDP AIDS IN THE MAINTENANCE OF EXISTING SCREENS. The FDP 
provides maintenance capabilities by allowing the user to revise 

screen designs by adding, deleting and updating specifications. It per- 
forms this maintenance function by retaining the screen formats in a 

disk file. Pea 


THE FDP SUPFORTS ALL MODELS OF THE SYSTEM/3 SUPPORTED BY 
CCP. The FDP runs on the System/3 Models 4, 8, 10, 12, and 15 
requiring a minimum user task area of 14K. 


THE FDP CAN BE USED WITH SCREENS CREATED PRIOR TO THE 
FDP INSTALLLATION. A program is provided that allows the user 
to place DFF Specifications, contained on Cards, Diskette, on disk 
data file to the FORMAT file used by the FDP. 
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GENERAL SYSTEMS DESCRIPTION 


This system is designed to assist the programmer in the design, creation, 
and maintenance of screen formats used with programs executing under the 
Communications Control Program (CCP) support for System/3. Since no. 
programs remain resident in memory, the available resources can be shared 
while application CCP programs arg executing. A minimum user task area of 
14K bytes is required in addition to the DFF Control Routine overhead. 


Functions provided: 
On-line: 

Screen Creation 
Screen Modification 
Screen Deletion 
Screen Recall/Display 
Output DFF Specifications 
Print Image of Screen Entry 
Assign User Defined Names to DFF Specification Fields 
Output RPG Input/Output Specifications for Screens 
Screen fangutian 


Off-line: 
Create FORMAT File 
Reorganize FORMAT File 
Screen Documentation 
Load Existing DFF Specifications 


DETAILED SYSTEMS DESCRIPTION 


This screen creation aid was designed to ease the programmer's effort in 
designing. creating, maintaining and documenting 32/0 screen formats for 
use with the Communications Control Program (CCP) support on System/3. 
Programs are provided to allow complete free form creation of 3270 formatted 
screens with the exception that line 1 pos 1-10 ind pos 80 of each line is 
unusable. 


In developing this aid it was necessary to deter:aine how much function should 
be included. Too many options tend to make ar aid too complicated, while too 
few will decrease its benefit to the user. So with this trade-off in mind, the 


‘major program functions were coded into tables where possible. This then 


allows the user to either increase or decrease the function or options easily 
by changing the tables. 


One permanent disk file (FORMAT) is the only requirement for executing this 
aid. Once a screen is created, it will be contained in the FORMAT file and 
any further activity will access its image from this file. When a screen is 
created the FDP assigns a unique sequential ID to that screen. This is done 
to allow the operator access to a particular screen in the event that multple 
screens are created with the same Screen Name. 


For the Model 4 user or at the option of the person installing this sytem, two 
additional disk files wili be used. The section ‘Installing the System' has more 


' ifmormation on these files. 
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SCREEN CREATION 


Selecting this option will return a blank screen for use in screen design and 
creation. The operator has complete freedom of entry with the exception of 

line 1, pos 1-10, and pos 80 of all screen lines. The operator codes each field 
displayed based on type and function. The specific codes to be entered are 
contained in Table 1. The programs will interrogate the input from each line 

to determine what type of entry was made. Any characters entered that are not 
part of a generated literal and not a defined field specification type will be 
ignored (i.e., 1111 was entered on line, this would be ignored in creating 

any DFF Field Specifications.). The same is true in recognizing any non-defined 
character within a Non-Generated Field; the field will automatically be terminated 
by this character; (NNNNBAAA) would be decoded as a 4 pos numeric input 
field followed by a 3 pos alphabetic input field. 


The operator has the option of duplicating a previous line by keying '*DUP*' 
in the first five positions for a line. The duplication can then be propagated 
by keying the same '*DUP*' on each suceeding line. . 


All fields with input characteristics will be generated with a default of Auto- 
skip-Yes. If the operator desires Autoskip-No option for a field, the field 
should be terminated with a concatonation sign (8) rather than the normal 
termination. Normal termination for Input only fields or O/1 Non-Generated 
fields is a blank ( ). Generated fields will have a termination character as 
defined in Table 1. 


TABLE 1 


NORM=- INT HIGH-INT NON-DISP 


-NPUT FIELDS: ALPHAMERIC AAAA CeCe eooe 
NUMERIC NANNN DODD Att 
OQUTPUT FIELDS: EXEC ALPHA KKK .. HEH aaaa 
GEN ALPHA < > > < ? ? 
O/1I FIELDS: EXEC ALPHA XXXX YYYY ZZZZ 
EXEC NUM 0000 9999 
GEN ALPHA { ) ) { 3 8 
GEN NUM = = z 3 
1.5 


PRINT SCREEN FORMAT AND/OR OUTPUT DFF SPECIFICATIONS 

With this option the operator can produce the DFF Specification records in a 
format ready to input to the DFF generator. The punched output includes the 
OCL for generation, specification records, and (/*) card. An image of the screen 
is also printed on the System Printer. If desired the DFF output can be placed 


on disk and the $MAINT utility executed to catalog the screen to the source 
library. 


SCREEN DISPLAY 
This option allows the operator to select from two options: 


Name listing - a listing will be displayed of all active 
Screen Names and ID's. It is expected that this would 

be used to determine what screens are active or determine 
the specific names chosen or ID's assigned. 


Screen Display - The selected screen will be displayed 
in the exact forma: as entered by the operator. 


SCREEN MODIFICATION 


With this option the operator is prompted to enter the selected Screen Name. 
The requested Screen is located on the FORMAT file and displayed to the 
Operator on the 3270. Any modifications or corrections can then be entered 
and when the Enter key is pressed - the same functions are performed as 
described under screen creation. Following the completion of this option, 


both the original and new versions of the screen are active on the FORMAT 
file. 


SCREEN DELETION 


This option allows the »perator to delete an active screen from the FORMAT 
file. This would be necessary following the Modify option to assure the old 
screen is no longer present. Obsolete or no longer desired screens should 
be deleted. As a means of providing additional safeguard against deleting an 
incorrect screen, the operator must enter both the Screen Name and ID to 
complete this function. An unknown ID can be obtained by using the Screen 
Display option. 





ASSIGN NAMES TO DFF INPUT RECORDS 


This option is used to assign user specified names to the generated DFF 
Specifications. The initial position of the Cursor can also be modified by 
this option. 


OUTPUT RPG INPUT & OUTPUT SPECI ICATIONS 

This option is used to produce the RP3 records; that would relate to the 
generated screens. The Control Card File Specifications for the CRT, 
Extension Specification for Parameter ¢rray, Input and Output Specifications, 
and the Parameter Array are produced. Separate screens can be selected, if 
desired for the Input and Output Specifications. The intent is not to produce 
a complete program, but rather to aid the programmer with the routine coding 
that is normally required. 


EXECUTE OPTION 


This option allows the operator to sele:t a Scrzen to be displayed on the CKT 

he is using or at his option display on anothe: CRT. The format of the display 
is the same as if output from the execition of an application program. This will 
allow the testing of screen options like numer c or alpha fields, intensity of field 
displays, or autoskip options. Using ‘1is opt.on to a CRT other than the entry 

device will also allow the testing of ov :rlay s:reen formats. 


DOCUMENTATION AID 


A program is provided for the off-line documentation of DFF Specifications. 
This program will print the literal (Generat2d) fields as defined. The 
program output fields will appear as asterisks (*). Fields containing input 
to the program will overprint with periods (. 


LOAD EXISTING DFF SPECIFICATIONS 


Existing DFF Specifications can be loaded to t1e FORMAT disk file used by 
this FDP. The Model 4 user will probably h: ve to use a System/3 Model 8 
or larger of another location to get his DFF Source statements from the Source 
Library to card, diskette, or disk data file m :dia. 





INSTALLING THE SYSTEM 


& 





INTRODUCTION 


This section will provide the user with the necessary instructions for installing 
the Screen Design Facility and is subdividied into four parts. They are: 


Installation Checklist 
Installation Instrictions 
File Creation and Sizing 
Sample problem. 


Hm 9 Bo be 


Each one of these parts should be studied and their instructions followed to 
insure proper installation of the Screen Design Facility. - 





INSTALLATION CHECKLIST 


This part of Installing the System is provided to give the user a list of 
tasks to be completed in order to successfully install the Screen Design 


Facility. These tasks ire: 
TASKS 


1. Copy object code for the programs 
and screens (Model 4 only) or compile 
the source code for the programs and 
screens (Models 8, 10, 12 § 15). 


2. Create the FORMAT File. 

3. Execute appropriate Assignment Set 
(SETF). 

4. Familiarize yourself with the section 


Operating the System. 


5. Familiarize yourself with the function 
of each option on the 'Menu' (initial 
screen) by reading the Program 
Descriptions. 


6. Perform the Sample Problem. 


INSTRUCTIONS SECTIONS 


Installation Instructions 
File Creations & Sizing 
Appendix A or B 
Installation Instructions 
Operating the System 


Program Descriptions 


Sample Problem. 





INSTALLATION INSTRUCTIONS © 


The Screen Design Facility makes the following assumptions: 


A. The Facility assumes the procedure to load the Display Format 
Generation Routine (DFGR) resides on unit R2 and that the formats 
should be compiled or unit R2. 

To change this, the user must modify the OCL Array content in 
programs FORSC2 and FORSET. 


RB. The Facility will provide three RPG I File comment records when 
program FORSC7 is executed. If the user wants more or less 
RPG II File comment records, a modification to RPG IU Calculation 
Specification (0144) is necessary. 


Cc. The Facility has two programs that use unit record devices (FORSC5 
& FORC7); therefore a CCP version of the-RPG-H. Compiler: (including) 
special unit record modules for CCP) must be used for the Model 4, 
8, 10, 12 when compiling these programs. 


D. The Facility assumes a 3270 configuration with a 3271 Control Unit 
and a 328% Printer attached. A 328X Printer is not required for the 
installation or operation of this system, but can be used if available. 
If your system is configured with a 3275 Control Unit/CRT and 3284 
Printer you must make the modifications illustrated in APPENDIX-C 
titled 3275/3284. 


The facility will be distributed from the Program Information Division 
(PID) by three methods: 


Vy. Disk - 5444 (Model 4 only) 
Zi. Diskette 
i Cards - 80 or 96 column 


Procedure are cataloged for the Model 4 User and contained with the distribuiton 


disk. All other Users should refer to Appendix B and the Program Descriptions 
for the creation of required OCL. 


2.3 





The contents of these media are: 
DISK DISTRIBUTION 


1 All object code for the programs and screens for the Model 4 
(no compiles required). 


2 All source code for the srograms and screens for the Model 4. 


3 Assignment set for the Model 4 (source library entry 'SETF'). 
See APPENDIX-A for a listing of this entry. 


The OCL necessary to copy the object cod from the distribution pack to the 
unit where the Communications Control Program (CCP) expects them to reside 
can be found in APPENDIX-A. 


The procedures necessary to execute the Communications Control Program (CCP), 
to copy the RPG II Specifications from file to the Source Library, and to copy 

the Display Format Facility (DFF) Specifications from file to the Source Library 
are provided in the procedure library of the distribution pack (see APPENDIX-A). 


DISKETTE DISTRIBUTION: 


ds Label 1 (FOR.RPG) - contains all the source programs with a // CALL RPG, 
// COMPILE OBJECT, and a // RUN record. The implementor must modify 
the // COMPILE OBJECT record and remove the LINKADD parameter if the 
System/3 is other than a Model 15. 

2. Label 2 (FOR.DFF) - contains all the source for screens used by the 
Screen Design Facility and // CALL DFGR §&.// RUN records. The Screen 
Header Record (the C Specification) directs to the generated object to 
unit R2. 


3. Label 3 (SETF.M15) - contains the assignment set (SETF) for the Model 
15 and necessary OCL to execute the Assignment Set Generator ($CCPAS). 
(See APPENDIX-B). 


4, Label 4 (SETF.MXX) - contains the assignment set (SETF) for the Models 
8, 10, 12 and necessary OCL to execute the Assignment Set Generator 
($CCPAS). (See APPENDIX-B). 


5. Label 5 (FORXX7) - contains an alternate version of FORSC7 for use 
with disk output of RPG Specification records. - Replace the standard 
version of FORSC7 with this source program only if you want disk 
output. The name in the RPG Header record should be changed to 
FORSC7 before compiling this program. 
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CARD DISTRIBUTION - 80 or 96 column cards will contain the same as the 
diskette distribution. 


All source code for programs and screens must be compiled for Models 8, 10, 
12, & 15 and placed on the unit where the Communication Control Program (CCP) 
expects them to reside. Before compiling, the implementor must decide if the 
Device Names are correct for their system and if the generated screens should 
reside on unit R2. 


The source code distributed by PID on diskette and cards will have 'DISK45' as 
the disk device name and 'MFCUi1/MFCU2 as the read/punch device name. If 
your system requires 'DISK' as the disk device name, you must replace the RPG IT 
File Specifications records illustrated in APPENDIX-C, titled DISK45 - DISK. If 
your system requires an input or output device other than MFCU1/MFCU2, the 


implementor mast replace the RPG II Specifications records illustrated in APPENDIX-C 
titled, MFCU-DISK or DISK45 and MFCU-DISKETTE. 





FILE CREATION AND SIZING 


File creation for the Screen Design Facility consists of creating the 
master file called 'FORMAT' and the work file called 'FORMATWK'. 

The master file 'FORMAT' must be created initially since all Display 
Format Facility (DFF) Specification records are placed there. The 

work file 'FORMATWK' is created only when the master file /FORMAT' 

is to be reorganized. 'FORMAT § FORMATWK' are created by programs 
'FORLOD & FORORI' respectively. Refer to the Program Descriptions 
Section for sizing and APPENDIX A or B for the OCL to create these files. 


Two additional files are required only by the Model 4 User or any User 
selecting disk output for the DFF and RPG Specifications. The file DFFCARDS 
is used to contain the card image of the DFF Specification records. The file 
RPGCARDS is used to contain the card image of the RPG Specification records. 
Each of these files is a Consecutive-Add file used by program FORSC5 and 
FORSC7 respectively. See Appendix A or B for the required OCL to copy the 
Specifications to the Source Library. The size of these files depend on the 
size and number of Specifications to be output during the execution of CCP. 

It is suggested that the User initially allocate 1000 records to each file. 


The file DFFCARDS can also be used for input to the program FORPRT. 


The files DFFCARDS and RPGCARDS should be deleted following their copy 
to the Source Library and/or the execution of FORPRT. 





SAMPLE PROBLEM 


This section will take you through most of the options available with this aid. 


It is suggested that this sample problem be followed step by step prior to proceding 
with the installation and the use of this system. 


Li Perform the steps outlined in the section ‘Installing the System’. 

2. Thoroughly review the section 'Operating the System’. 

3. Initiate the procedure FORCCP (Model 4) to bring up CCP. 
Select Assignment Set: F. 

4, Sign on your terminal. 

5. Enter the word FORMAT in the first six positions of screen. 


The program FORPRT is not contained as part of the sample problem. This is 

an off-line, non-CCP program, provided. to .assist.in. documenting..DFF specification 
records. Review its function and execute as required. All of the screen printouts 
contained in this section were produced with the aid of this program. 


Shutdown CCP and proceed with the following steps to complete the sample problem. 
Select the condition below that applies: 


A. Card or Diskette output of DFF Specifications and RPG Input/Output 


Specifications. 

hy Generate the screen ($ZFOR2) by placing the DFF Specifications 
obtained from Option 2 into the System Reader. 

2. Review or list the RPG Input/Output Specifications obtained from 
Option 7. 

B. Disk output of DFF Specifications and RPG Input/Output Specifications. 

i. Call the procedure FORDFF to catalog the DFF Specifications 
to Source Library. 

2. Call the procedure FORRPG to catalog the RPG Specificatior:s 
to Source Library using the selected name of PROGO1. 

3... Generate the screen ($ZTST2) from Soure Library. 

4. Copy the Source Library entry PROGO1 to Printer using 


$MAINT and verify its content. 





SCREEN NAME-$ZFORX “ 
RAXKRKKKAK AK KK KKK KKK KA KK KKK KKK HK KKK HK KKH HK HK KIKI IK XIII HII III IO 


x SCREEN OPTIONS 

X 

X SELECT THE DESIRED OPTION BY PLACING AN *x* IN FRONT OF SELECTION-- 

x 
Xx 2? 1. CREATE A NEW SCREEN FORMAT- } 
Xx NORM~-INT HIGH-INT NON-OISP ; 
K INPUT FIELDS: ALPHAMERIC AAAA CCCC ecco } 
x NUMERIC NNNN DOOD JIhi ) 
x OUTPUT FIELDS: EXEC ALPHA ee Ee bane aaaa ) 
x GEN ALPHA < > > < ? ? ) 
X O/T FIELDS: EXEC ALPHA XXX YYYY ZZZz j 
X EXEC NUM 0000 9999 ) 
X GEN ALPHA ( ) ) ( 3 : ’ 
xX GEN NUM = = a % x 
X 2 2. PRINT SCREEN FORMAT AND/OR GUTPUT DFF INPUT RECORDS- , 
X 2? 3. DISPLAY A SCREEN OR OBTAIN LIST OF ACTIVE FORMATS- se 
Xx 2? 4. MODIFY EXISTING FORMAT=— ** THE REVISED SCREEN WILL NOT BE DELETED i 
x AUTOMATICALLY=-- USE OPTION 5 2 
Xx 2 ae DELETION OF AN ACTIVE FORMAT- 
xX 2 6¢ ASSIGN NAMES T2 DFF INPUT RECORD FIELDS- x 
xX 2 Te OUTPUT RPG INPUT & OUTPUT SPECS- x 
x 2 8. EXECUTE SCREEV-- x 
X ** PFI WILL COPY THIS SCREEN TO 328X ** AK 
X 
x 


AKA AKK KANN AKA AK KK KKK KKK KH KK HK KKK KK IK IK IKK HK IK HK HHI IK I I IKI III I II j 


Select option No. 1 from the menu screen. 


Press enter key. 





.EEN NAME-$ZTST1 


<CUSTOMER I'iQUIRY> 


<SUST NAMEs<r-= > KERKCKEKR ERE KEE RR ER 
<CUST ADDRESS-=> ee de oe eae ak ae ak ke ee 
CSITY/STATEs--=> SHAKER ERER HER RK 
€ZIP CODE-----=- > Me de eK 
<SALESMAN=----— > ee He eee ee ke eK 


CCREDIT LIMI T--> KREEERKESE 


) 


RR KR KKK RK KR KR KR RM KKK KR KK KR KR RK 


K 
x 
X 
X 
X 
x 
x 
x 
x 
x 
K 
x 
X 
x 
X 
X 
x 
X 
x 
Xx 
X 
xX 
X 
x 
X 


EE RG SEEN HS OVERSEA ERM ANT Sn Ne ee RR AAR RANA SEAR ET Om Boren 


Make the above entries on the blank screen that is displayed. 


Press enter key. 


The entries from this screen are interrogated by program FORSC2 as tke 
first step of the screen creation. The screen contained on the followin: page 
will then be displayed to complete this option. 





PARK KKK XK KKK KKM KK KKK KKK KK KX XM KX XK AXX XXX KXKAAKXX AX ANKX XX KKX AXA XXX AX KX AX AAKXKAKAKRAKXAXMKXK KKK | 


‘m 


SCREEN NAME-$ZF922 
KK AKKK KKK KK KKK AK KK KK KAA KKK KKK KKK KKK KK KKK KIKI IK HII KIX II HK II IK II KI a a 


Xx 


SCREEN COMPLETION 


WILL THIS SCREEN INITIATE A P2RUF PROGZAM? 
IF S39 SIVE THE PROGRAM NAME-- 2L2R228 


ENTER SIX POSITION NAME OF SCREEN-- sors 


SHOULD THE SCREEN BE ERASED BEFORE 


QUTPUTTING THIS SCREEN? Y/N-- y 


IF YOU ARE COMPLETING A MODIFY SCREEN FUNCTION OR WANT NAMES FROM 
ANITHER SOREEN USED WITH THIS SCREEN-- 
ENTER THE SCREEN NAME & ID (OPTIONAL) BELIwW 


SCREEN]= eeeeee I0- 


ge oe. Bm) een ete ees eee ects Nae. ZS he 


XA XXXAXX AX XXX AXA KNX KKK KK KX KK HK KH KK IKK HK KI HK IK IK III II I IOI IO III II KO 


Enter $ZTST1 for the screen name. 


Press enter Key. 


The screen creation function will be completed and the menu screen displayed. 
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SEEN NAME-$ZFOR¢ 
KRKXKXXAXRAK AX KAKA K XK KKXXKAA KK MK KX XX XXXAKK XX KKK KKK AX KKK A KKK KKK KKH KKH HK HK HHH KK HII IK 


X x 
x X 
y ** DISPLAY FUNCTION *# X 
> xX 
» x 
x SELECT THE *I1D*® NUMBER AND SCREEN NAME THAT YOU x 
x WANT TO DISPLAY. IF BOTH DON’T MATCH FOR A SCREEN ra 
x CINTAINED ON THE WORK FILE, A MESSAGE WILL BE x 
x DISPLAYED SAYING THAT THE SCREEN wAS NOT FOUND. x 
x IF *I1D0* ISN*T ENTERED, THE FIRST NAME MATCH WILL DISPLAY. x 
x SCREEN & ID BLANK WILL GIVE SCREEN NAME LISTING K 
x xX 
x SCREEN= $: TST1 K 
a ; xX 
xX 1d NOo> e- x 
} x 
x xX 
x xX 
x X 
x xX 
Xx x 
x x 
x ; x 

x 

x 


a ca ad KKK KIKI HK HHH IH HI HI IIE HI HII HH IH IK IK ICI 


Select option 3 on the menu screea (not shown). 
Press enter key. 
Enter $ZTST1 for screen iame. 


Press enter key. 


D dod 


CREEN VAME-$ZTST1 
AKXAK AXA KKK KK KK AK KKK KA KKK KK KKK KAR XK AK HK AK KKK KK KK KK KKK KK III KK IKK IK KAI IK KK. 


xX 4 
x > 
x <CUSTOMER IAQUIRY> 
X 
x 
x x 
x <lUST NAME----- > REREKERKERREAREKKEKEE x 
x C<ZUST ADDRESS==> REKERERKERERRRERKEE AE x 
X CLITY/STATE----> EREEREREEKREEEE 2K x 
x ZIP CIDEn----- > kee RH x 
x x 
x CSALESMANH----e > KEK RAK REE REE x 
x C<CREDIT LIMIT-=> M6 Re MR Xe ee ee X 
x K 
X x 
x oe i 
x xX 
x xX 
x xX 
x X 
x x 
x X 
X ~¥ 
x 
MAKKK AXA KAKA KKK AA KK KKK KKK KH KK KK KM K KK KI KK IKI IK I III IO II II ICI . 

Review the displayed screen. It should be identical to the one 

previously created. 

Press enter key to return to menu screen. 
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-EEN NAWE~$ZFOR7 
ARKXKKAK AK AKKK KK KK AK KKK XK AKK XK KK XK KXKKK XK KKK KMKK KKK KKK KK AHHH XK HK KK KKK KKK KKK HIKE HK KX KKK 


Poe a err en nT ON Date els ee renee ker NRE E NE tenn Ot ae LN Serene 


— 


** MODIFY FUNCTION ** 


SELECT THE *1D* NUMBER AND SCREEN NAME THAT YOU 

WANT TO MODIFY. IF BOTH DON'T MATCH FOR A SCREEN 
CONTAINED 3N THE WORK FILE, A MESSAGE WILL BE 

DISPLAYED SAYING THAT THE’ SCREEN WAS NOT FOUND 

IF *I1D* ISW*T ENTERED, THE FIRST NAME MATCH WILL DISPLAY 


SCREEN- SZTST1 


Id NO.w- eo 


Select option 4 from the menu screen (not shown). 


Press enter key. 
Enter $ZTST1 for screen name. 


Press enter key. 
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x 
x 
x 
X 
X 
x 
x 
x 
x 
x 
X 
X 
x 
X 
X 
x 
x 
xX 
x 
x 
X 
X 
x 
x 
x 


SCREEN 


x 


xX 
X 
XK 
x 
x 
x 
X 
X 
x 
x 
Xx 
X 


x 
X 
x 
Xx 
x 
X 
X 
x 
x 
x 
x 
x 


YAME=S$ZTSTL 
RANK K ARK KK KAKA KKK AAA K KKK HK KKK HK IK KK I,K KIKI AK XH KH K HK HK IKK KI KK HICK IH 


<SUSTOMER INQUIRY> 


<LUST VAMEse--=> CRRREKSRKERERA KEE RE 
<lUST ADDRESS=-> SRRERERKEEEERE AS KKH 
CLITY/STATEom==> MERE RRR RKERE 
<ZIP CODE------> RKRKE 
<SALESMAN-----— > RERRRURKKERERE 
CSREDIT LIMIT=-> ReeR REE 


AMA AA RK KK KAKKX XK KKK AK KK KKK KKK KAKA KK KKK KKH KX KKK KKK KKK KK II III IH HH KIO 


The selected screen, $ZTST1, is retrieved and displayed for operator modifications. 
For this sample problem one literal and one input field is added and all execution 
output fields are changed to output/input type fields. The desired changes are 
shown on the following page. 


ww 
° 
re 


a ie ee as Sik gee eB arta elie) BEN oh a ce > 


_ EEN NAME-$ZTST2 
KXRARKAKK AK KKK HK HK KKK KKK KI KI II IO OO OOOO OOK IX 


K x 
x x 
x <CUSTOMER INQUIRY> x 
x xX 
K <ENTER PASSWORD-> .ecooc K 
K Xx 
< <cUST NAME----- > YYYYYYYYYYYYYYYYYYYY x 
4 <SUST ADDRESS=-> XXXXXXXXXXXXKXKXKF XXX x 
c <CITY/STATE----> XXXAXXXXXXKXXKK KX x 
< €ZIP CIDE---=---> 00000 X 
( > xX 
( <SALE SMAN------ > XXX XXXXKKXX KX X 
t <CREDIT LIMIT--> 000000000 x 
c x 
f xX 
i xX 
( x 
{ x 
{ x 
, xX 
t X 
; X 

x 

x 

X 


iia eerie KX MK XX KX XXX. AKXXKAK KK KX XK XX AX KX XK KK AK KK KK KK KM K HK KKK KX KKK 


Make the rodifications so your screen looks like the one above. 


Press enter key. 


The entries from this screen are interrogated by program FORSC2 as the 
first step of the screen modification. The screen contained on the following 
page will then b2 displayed to complete ttis option. 
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SCREEN VNAME-$ZFIOR2 
AR ARRAK KKK AK KKH HK KKK HK HK IK HK KH KKK HK HHH HH HH IK HK IK HI KI I HI HII HI HI HI I I 


X 
x x 
x SCREEN COMPLETION x 
x b4 
X 
x l1 wILL THIS SCREEN INITIATE A P2UF PROGRAM? K 
4 IF SOs GIVE THE P20GRAM NAME=—- 222209 X 
Xx XxX 
X 2 ENTER SIX POSITION NAME OF SCREEN-=— $2TST2 . 
x x 
x 3 SHOULD THE SCREEN BE ERASED BEFORE x 
x OUTPUTTING THIS SCREEN? Y/\-- ¥ x 
Xx x 
X X 
x x 
X ~~ xX 
x IF YOU ARE COMPLETING A MODIFY SCREEN FUNCTION GR WANT NAMES FROM x 
X ANOTHER SCREEN USED WITH THIS SCREEN-- x 
x ENTER THE SCREEN NAME €& ID (OPTIONAL) BELOW xX 
x x 
x SCREEN-= e@oeveerd ID= x 
X x 
x x 
x . 
AR XXKAK KK AK KKK KKK AK K KKK AK KK AK KK KKK KK HK HK KKK XK KI KKH KI IH HHH IK HK KE 


Enter $ZTST2 for the screen name. 


Press enter key. 


The screen modification will be completed and the menu screen displaved. 
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sEEN NAME-$ZFOR4 
KKKKK AA KKAAKK AX AKA KKK AK KK KK KKK AKAN XX XX KKK KKK HN KKK HK KKH AK KKH HII II KK HI KI 


X X 
> x 
> ** DISPLAY FUNCTION *% X 
x X 
x X 
x SELECT THE *I19* NUMBER AND SCREEN NAME THAT YOU X 
x WANT TO DISPLAY. IF BOTH DON*T MATCH FOR A SCREEN X 
x CINTAINED IN THE WORK FILEs A MESSAGE WILL BE x 
x DISPLAYED SAYING THAT THE SCREEN WAS NOT FOUND. x 
K IF *1D* ISN*®T ENTERED, THE FIRST NAME MATCH WILL DISPLAY. Xx 
K SCREEN & ID BLANK WILL GIVE SCREEN VAME LISTINGS X 
x x 
¢ SCREEN= eeeeeo0 xX 
< x 
< td NOem- 2e x 
ua x 
: X 

X 
‘ x 
, X 
‘ x 
1 x 
( x 

X 

x 


i HK KKK KKK KKK KKK KKH KKK KKH KKK KIKI KIKI HK KIO I HK IKK IIH IKK IK KKH KKK KH KK HK KK 


Select option 3 on the menu screen (not shown). 
Press enter key. 


“ The above screen will be displayed, leave the requested 
fields blank. . 


Press enter key. 


Review the list of screen names displayed. Verify that $ZTST1 and 
$ZTST2 are present. 


Press enter key to return to menu screen. 





CREEN VAME-$ZF IRA . . 
XK AK KK AK KAKA KK AK KKK KK AKA KKK KKK K AK AK KK KAKA AK KAKA KKK AKA KAKA KK AK AK K ARK KL) 


EXECUTE SCREEN OPTIONS 
ScLECT SCREEN NAME SZTsT2 
SELECT SGREEN LD ow 
SELECT TERMINAL WHERE OLSPLAYcD 222222 


KeCDSFAULT TERMINAL IS THIS DEVICE ** 


Lea doce Pal ene ee eee 


> 
X 
X 
X 
x 
x 
x 
x 
X 
X 
x 
X 
x 
4 
XK 
< 
X 
XK 
x 
x 
K 
x 
K 
X 
X 
x 


XAXXKAAXXKXAXAKKKXXXKXKXKXKXKXXKAXKXKKKXKKKXKAKXKKKKXXXX XX XKXXXAKAKXKXAXKXKXKXKAKXKXAKKXAKKXXKXAKAMMAXKKA 

Select Option 8 on Menu Screen (not shown). 
Press Enter Key. 
Enter $ZTST2 for the Screen Name. Leave the other fields with no entries. 

' Press Enter Key. 
Verify the content of the screen displayed at pe 
= Password Entry should be non-display. 
= Alpha entries in the zip code and credit limit fields should be 

prevented. 

Name field should be in high intensity. 
Press Clear Key. 


Enter FORMAT in first six positions of screen to obtain Menu Screen. 


Press Enter Key. 
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EEN NAME~-$ZFORA 
PRR KKKX KK KK MX KX AX KK X KKK XX XX KK XX KX KKK KKK XX AK XA XXX KKAAK KKK KKK KK AKAM KKM AX K KK XANAX KKK) KKK 
SZTST2 a2 e 
SCREEN ID 
YOU HAVE SELECTED THE OPTIGN OF CHANGING FIELD 
NAMES CONTAINED WITHIN THE GENERATED FORMAT-- 
SELECT A SCREEN NAME AND ID (OPTIONAL) ABDVE: 
AND THE FOLLOWING THREE SCREENS WILL BE PRESENTED- 
Ll. INPUT & O/I FIELDS-- 
2. QUTPUT NON-GENERATED FIELDS-~ 
30 JUTPUT GENERATED FIELDS-- 


x 

x 

XK 

X 

Xx 

x 

x 

x 

Xx 

x 

X 

xX 
ENTER FIELD NAME CHANGES AS DESIRED OR IF DESIRED xX 
PFI KEY WILL TERMINATE THIS OPTION AND RETURN MENU x! 
xX \ 

x 

X 

x 

X 

x 

x 

x 

x 

X 

x 


o—™~ 


YARRA KKK MH KKK AK KKK KK AK AK KKK KARR KK HK AK KKK KK KK AKA KKK KK KK KKK AKAN NK KK HAA KK 


Select option 6 on menu screen (not shown). 
Press enter key. 
Enter $ZTST2 for screen name. 


Press enter key. 
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co~ 


SCREEN VAME- 
AK AKAKKK KKK KA KKK KKK A KX KKK HK KKK KKK KKK KI KK IKI II III IO III 
x 
X 
x INOUT FIELOS- ENTER ANY FIELD NAME CHANGES DESIKED AND PRESS ENTER. 
X FOR NUMERIC FIELOS THE NO OF DEZTIMAL POSITI3NS CAN BE 
x DEFINED BY ENTERING THE VALUE. TO CHANGE A CURSOR PQ- 
X SITTIN, THE FIELD SELECTED MUST BE ONE DISPLAYED. 
x 
x POS LEN TYP NAME DEC POS LEN TYP NAME DEC POS LEN TYP NAME DEC 
x 25-37 396 I- LNO537 O7-29 29 YE LNO729 08-29 20 VE LNO829 
X 99-29 14 JE LNO929 09-45 02 VE LV0945 10-29 05 VE LNLO29 0 
x 12-29 14 VE LV1L229 13-29 09 VE LN1329 5 
x 
x ° 
X 
x 
x 
: 
x oe 
x : 
x CURSOR POSITION- LN9729 
XK 
x 
x 
X 
XAKAAX AKA KKK K KKK KKK KKK KKK KKH KK IIE III IO XO XK 
The above screen will display showing the generated names for the fields 
contained on screen $ZTST2. Any fields that are numeric will display the 
decimal positions and also allow for operator changes. Proceed to the next 
page and make the entries shown. 
Note:The field names may not appear exactly <s shown above. These names oo 


were generated based on the starting pos tion of the fields. 


2620 





BK KK KOK KOKO OKO KO OKO KOH Om OD ‘T 


A 


aN, 


EEN NAME- : 


71 IK HH KKK HHH HHH HHH KKH HHH HHH HK HH HH HHH HIN HH HH HH HH HHH HI HHH HE HI 
i x 
x xX 
x IVPUT FIELDS- ENTER ANY FIELD NAME CHANGES DESIRED AND PRESS ENTER; x! 
x FOR NUMERIC FIELDS THE NO OF DECIMAL POSITIONS CAN Be x 
x DEFIVED BY ENTERING THE VALUE. TO CHANGE A CURSOR PO- x 
x SITIJN, THE FIELD SELECTED MUST BE JVE DISPLAYED. x 
x x 
x POS. LEN TYP NAME DEC POS LEN TYP NAME DEC POS LEN TYP NAME DEC Xx 
x 95-37 66 I- PASW2) 07-29 20 UE NAME 08-29 20 JE ADDR x 
x 09-29 14 UE CITY 09-45 02 UE STATE 10-29 05 UE ZIP G Xx 
x 12-29 14 UE SLSMV 13-29 09 UE CRLIM 2 x 
x x 
x . x 
x x 
m x 
x x 
.° x 
x x 
x | x 
x CURSOR POSITION- PASWRD x 
x x 
x x 
x x 

x 
KR KKK HK KH KK KH KH HII II IKI HII KIN HH IKI NH HH HH HH III II KK HHH II III EK 


} 


Enter the field name changes shown above. 
Change the decimal positions for 'CRLIM' to 2. 
Enter 'PASWRD' for cursor position. 


ae. j Press enter key. 





ore 
yoy 


SCREEN NAME- ; 
XRAARKAKA KK KK KAXAKXAXAKKA XARA AKKA KK AKK ARK ANAK A KAA RAK AK KKK KX AKKKKAXKAKAKAK KKK KKK Ky j 


x x 
x x 
X OJTPJUT FIELDS= ENTE? ANY FIELD VNAYWE CHANGES DESTRED AND PRESS ENTER. XK 
x ENTERING A NAME FOR *U* TYPE FIELD WILL ASSIGN A '2ND x 
x NAME. AN *#* FOLLIWING NAME INDICATES THIS PRIOR ASSISN- x 
xX MENT. TO DELETE ENTE? *% ® IN THE NAME FIELD K 
X x 
x PIS LEN TYP NAME 2"D POS LEN TYP NAME 2ND PIS LEN TY? VAWE 2NOD x 
x 37-29 29 JE NAME 08-29 20 VE ADDR 09-29 14 UE CITY 4 
X 99-45 02 YE STAT= 10-29 95 UE ZIP. 12-29 14 UE SLSMN x - 
x 13-29 99 JE CRLIY ‘ x 
X x 
Xx x 
x x 
Xx x 
x x 
X X 
X <— 
x x 
x x 
X X 
x x 
x X 
xX — 
KXKXXXKKAAKK AXAXXKKX KAKA NAKA XK AXKAXXXAXAKKK AXXXXKKXANKAKAK KK AK AK KKK AKRKKKXAXKAKKK KMD 


Following the display of input fields: 


The above screen will be displayed siiowing the output fields. Notice 

that all fields are output/input and have acquired the names entered on the 
prior screen. Different or '2nd Names;' will be entered for all the fields 
displayed. Go to the next page and rake the field name entries shown. 





rN 


ZEN NAME~ 
XAAXXKXXKXAXXAXAXKAXXAXAXKXXKKAXXXKKKXAXKXXXKAXKXXXKRAXX KK KK XK XXX KX KX KK XK MAKAKKAKKAXKKXX KKK XX XK KXAKXX 


JUTPUT FIELOS- ENTE ANY FIELD NAME CHANGES DESIRED AND PRESS ENTER. 
ENTERING A NAME FOR *U*® TYPE FIELD WILL ASSIGN A *2ND 
NAME. AN ®%* FOLLOWING NAME INDICATES THIS PRIOR ASSIGN- 


MENT. TO DELETE ENTER ** ® IN THE NAME FIELD 
POS LEN TYP NAME 2ND POS LEN TYP NAME 2ND PIS LEN TYP NAME 2ND 
97-29 20 UE NAME2 08-29 20 VE ADDR2 09-29 14 VE CITY2 
09-45 02 VE STATE2 ; 10-29 05 VE ZIP2 12-29 14 UE SLSMN2 


13-29 09 VE CRLIM2 


x 
X 
X 
X 
x 
X 
x 
x 
X 
x 
x 
x 
X 
X 
X 
X 
X 
X 
x 
X 
X 
x 
x 
x 
X 


sv MKXKKAXKKAX KKK AKA KXAXKAKX KAKA NM KKK KKK KKK AK KAKA KK KKK KK KK KK KK MK KH MK HNN HK KH KKK MK KK KK HK KK 


Enter the above field names as shown. 


Press enter key. 





SCREEN VAME- | 
MXKXXKXAXKKXXKKXKXXKXAXKKKXXXKKXXXKKXKRKXKXKXKXKKXKXKXRXKXKXKXNKXKKKXKKKXKXKKKKXKRKKXKXKXARKRKXKXKXAXKKKXKXKXXKKKKK«- 4 
: , 


SEN FIckhOS--- ENTE? ANY FIELD NAME CHANGES DESIRED AND PRESS ENTER. 
ALL FIELDS OF THIS TYPE WERE CREATED WITH AN *F* GEN 
CODE, CHANGING AN NAME WILL ALSO CHANGE THIS TO "G* TYPE 
*ALL FIELDS DISPLAYED HAVE NO INPUT OR OUTPUT TO PROGRAM* 


P3S LEN TYP NAMz POS LEN TYP NAME POS LEN TYP NAME 
393-27 16 OF LNO327 05-18 15 OF LNO518 O7-10 14 JF LNO7I0 
38-19 14 OF LNOS81D 09-10 14 DOF LNO910 LO-10 14 OF LNLOLO 
12-10 i4 OF LN1210 13-19 14 OF LN1310 
x 
X 
X 
x 
_® 
X 
x 


ea FF 


x 
x 
x 
X 
x 
xX 
X 
% 
x 
x 
x 
x 
x 
x 
X 
x 
X 
x 
x 
X 
x 
x 
XK 
KKK KXAXKXX KKK XK AK KK KX AAK KKK KK KK XXX KX MAKAAXKK KKM XA KKM XX AKA KK XX KK KKK KKH K KA ARK KAA AK KX AKA ) 


Following the display of output fields: 


The above screen will be displayed showing the output only generated 
fields. There are no changes to these names for the sample problem. 


Press enter key. —~ 


= The menu screen will display. 





EEN NAME=$ZFIR3 
XXX XK KKK XK KKK AK XX KX KX AXKKK KKK KK KK AKKK XX XK AXKX MARK KKK KKK KX KK KKK A AX XK X KX KK KK KK KK X KKK X 


¢ 
c 
« THIS PROS2AM WILL JUTPUT YOUR DFF FORMAT RECORDS 
« AND PRINT THE SCREEN PICTURE ON THE SYSTEM PRINTER 
« 
¢ $ZTST2 
ENTER THE SCREEN NAME SELECTION- $2222? ID—- oo 


IF LEFT 3LANKe ALL FORMATS WILL BE SELECTED {OPTIONAL ) 


“ 


ENTER AN.*X* TO PREVENT FORMAT FROM PRINTING 2 


ENTER AN *X* TO PREVENT FORMAT CARDS FROM PUNCHING 3 


ee eS PR OO FR SO FR OF FR OFS OR OD 


Xx 
x 
x 
X 
x 
x 
x 
x 
x 
Xx 
x 
X 
X 
x 
x 
X 
x 
x 
x 
x 
x 
X 
x 
X 
x 


5 ims i a al 


Pa 


Select option 2 on menu screen (not shown). 

Press enter key. 

Enter $ZTST2 for the screen name selection. 

Press enter key. 

Assure that the system printer and output device for the DFF specifications 
is available and ready. If the DFF specifications is to card or diskette, 


save for later generation. If this output is to disk, the $MAINT procedure, 


FORDFF, should be executed later with CCP shutdown and then the screen 
generated directly from the source library. 


The menu screen will be displayed following the completion of this option. 


SCREEN WAME=$ZFIRG “a 
XXKKXKXXKAXKXXXKXXXXAXXKK AXXAXXXXKXXKAXKXKX KKK XK XXX XAKKXXXXKAXAKAKKAKK YXKXXXKKXX KK” ) 
x 


x 

x 2 PS TL SPECIFICATIGNS GPTION 

X k 
K > 
x x 
x SPECIFY THE SCREEN NAME THAT YOU WANT INPUT SPECS. x 
x SCREEN NAME= $ZTST2 x 
x x 
x IF YA WANT COMMENT CALCULATION RECORDS INSERTED, X 
x SPECIFY THE NUMBER DESTRED-- ad ‘ 
x 

X 05 2 
X SPECIFY THE SCREEN NAME THAT YOu WANT OUTPUT SPECS. Xx 
K SCREEN NAME- $ZTST2 x 
' SCREEN I[D-=- oe $ZTST2 x 
x ; 
X SPECIFY THE PROGRAM NAME FOR THESE SPECS. x 
x PROGRAM NAME= eeeenee x 
K %. 
: PROGO1 x 
( X 
" a 
‘ 


RK AKAAKKAXKXKXKXAKAKKXKXKKK KX XAKXX KAXKXKXAKAKKX KK KK KK KAKKAKK KKK KX KKK KKK KK AXA KK AX KXKXKAX, ) 
Select Option 7 om Menu Screen (not shown). 
Press Enter Key. 


Enter $ZTST2 for both screen names select five (5) comment calculations. 
Enter a program name of 'PROGO1'. 


Press Enter Key. 

Assure that output device for the RPG Specifications is available and 
ready. If the output is to card or diskette, save for later verification. 
If the output is to disk, the $MAINT procedure, FORRPG, will be 
executed later with CCP shutdown to catalog this entry in the source 
library. 


The MENU screen will be displayed following the completion of this option. 


Av2d 





mS 


~ CEN NAME-$ZFOR9 
KKK KK AK AA KAN KKH KK KK HH KKK KK HK IH KH KKH HHH HK KK HH KH HH KH HHH HK HH HH HH KK IE KI IK KH HK 


x x 
x x 
xX #& DELETE FUNCTION *#* x 
x x 
xX x 
xX SELECT THE *I1D* NUMBER AND SCREEN NAME THAT YOU x 
x WANT TO DELETE. IF BOTH OON'T MATCH FOR A SCREEN , x 
:X CONTAINED ON THE WORK FILE», A MESSAGE WILL BE x 
xX DISPLAYED SAYING THAT THE SCREEN WAS NOT FOUND x 
= x 
x x 
xX x 
x SCREEN- $ZTST1 x 
xX xX 
x 1D NO.- 22. «OO x 
va x 
; s 
x Y 
x Y 
x } 
xX ) 
x ) 
X ) 
ae ? 
) 


tke reece nnn rewmtrnnemneepeerh gee HK KKK HK HK HK HH HH IK H IK IH II HK IK 


Select option 5 on menu screen (not displeyed). 

Press enter key. 

Enter $ZTST1 in screen name and 01 in ID fields. 
a : Press enter key. 


* The program will return a message stating that the screen 
was deleted. 


Press enter key to return to menu screen. 





SAMPLE OUTPUT LISTING 
(OPTION 7) 


4/ CALL RPG.F1 
‘f/f COMPILE OBJECT=R2 
/f RUN 
QOQQO1SH C 
OGO2ZGFTERMIN IP 105 SPECIAL SUBR92 
00030F KPL 
OOO40FTERMOUT 3 104 SPECIAL SUBR92 
QOO50F KPL 
GOO60F* 
QO070F* 
QOO80F* 
OOOQ9O0E PL 5 5 6 
OOLOOITERMIN NS OL 15 CI 
Oc1i0l 1 Z20INTRN 
901201 3 &OQQUTRTN 
001301 5 BOLENGTH 
001401 9 14 TMNAME 
001501 15 15 AID 
001601 16 21 PASWRO 
OOL7OI 22 41 NAME 
001801 42 61 ADDR 
001901 62 75 CITY 
002001 76 77 STATE 
OuZ2iol 78 820ZIP 
002201 83 96 SLSMN 
002301 97 105ZCRLIM 
09246] NS 02 
00250C* 
00260C* 
00270C# 
00260C* 
06290C* 
OO3Z000TERMOUT D Ol 
003100 4 *GB* 
0C 3260 8 * 1048 
003300 TMNAME: 14 
003409 20 *"$ZTST2?* 
063560 NAME2 4&0 
003600 ADDR2 60 
003700 CITY2 74 
003866 STATE2 76 
063900 ZIP2 81 
004000 SULSMNe 95 
094100 CRLIME. 104 
we ACCEPT INPUT OP CODE AND MAXIMUN INPUT LENGTH 

D 105 
¢% 


2.28 


PROGO. 
PROGO) 
PROGOL 
PROGO] 
PROGOL 
PROGOL 
PROGOL | 
PROGOL 
PROGOL 
PROGOL 
PROQGO] 
PROGOL 
PROGOL 
PROGOL 
PROGO’ > 
PROGO, 
PROGO]L 
PROGO? 
PROGO:! 
PROGOL 
PROGO] 
PROC 
PROG. * 
PROG. ) 
PROGO] 
PROGOL 
PROGOL 
PROGO] 
PROGO] 
PROGO. 
PROGO: 
PROGOL 
PROGOL 
PROGO}-~ 
PROGO. 
PROGOL 
PROGO] 
PROGO] © 
PROGO] 
PROGO 
PROGO. 


“y/ CALL RPGsF1 


NO INPUT SPECS SELECTED 
(OPTION 7) 


/ COMPILE OBJECT-R2 


// RUN 
O0010H 
QOO2Z0FTERMIN IP 
00030F 
OOO4OFTERMOUT 0 
O0050F 
00060F* 
OG070F* 
00080F* 
00690E 
OOLOOITERMIN NS 
001101 
061201 
001301 
001401 
“JL501- 
wO1L6OOTERMOUT D 
001700 
001800 
001900 
002006 
902100 
02200 

12300 
~ “22400 

2500 
002600 
002700 


22 SPECIAL SUBR92 
KPL 

10% SPECIAL SUBR92 
KPL 


PL 5 5 6 
Ol 15 C® 
20INTRN 
400UTRIN 
80LENGTH 
14 TMNAME 
15 AID 


vO UW 


lL 
01 
4 "GB 
8 * 1048 
TMNAME 14 
20 *$ZTST2* 


NAME2 40 
ADDR2 60 
CITY2 14 
STATE2 76 
ZIP2 81 


SLSMN2 95 
CRLIM2 104 


** ACCEPT INPUT OP CODE AND MAXIMUN INPUT LENGTH 
2? 


D 
1% 


oS 


2529 


PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGOZ 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 


“PROGO2 


PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 


NO OUTPUT SPECS SELECTED 


(OPTION 7) 

// CALL RPG» 
// COMPILE OBJECT-R2 
/f RUN 
Q0010H C 
OOOZOFTERMIN IP 105 SPECTAL SUBR92 
0030F /  KPL 
QOO4OFTERMOUT 0 2? SPECIAL SUBR92 
OOO50F KPL 
OU06CF* 
COOTOF* 
OOO80F* 
20990E PL 5 5 6 
OOLOOITERMIN NS O1 15 CC! 
001101 1  ZOINTRN 
091201 3.  4COUTRTN 
0013901 5 80LENGTH 
001401 | 9 #14 TMNAME 
001501 . 15 15 AID 
001601 16 21 PASWRD 
OOL7OI 22 41 NAME 
00180! . 42 61 ADDR 
001901 62 75 CITY 
062901 76 77 STATE 
002101 7 78 820ZIP 
002201 83 96 SLSMN 
092301 97 1052CRLIM 
002401 NS 02 
02250C# 
00260C* 
90270C* 
96280C* 
00290C* 
*& ACCEPT INPUT OP CODE AND ' AXIMUN INPUT LENGTH 

b 105 | 
/* | . 
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OPERATING THE SYSTEM 





OPERATING THE SYSTEM 


Once the sample problem has been run and a few additional screens 
created, the user should feel comfortable with the use of this FDP. 


Erase EOF Key 


There is one function performed by the 3270 hardware that the user 

should be aware of. Since the 3270 is a teleprocessing device, it will 
attempt to keep the amount of data transmitted to the CPU to a minimum. 
Therefore, unused and unaltered portions of the screen may not transmitted. . 
The device recognizes these screen positions by the presence of a ‘null’ 
character (X '00'). So the hardware scans the screen or buffer positions for 
these characters and bypasses the transmission of any found. 


The programs are written to place blanks (X '40') in all entry positions 

of the Create and Modify Entry screens. So if the cursor positioning key 
() is used to bypass screen pcsitions, the original blank characters still 
remain on the screen and will be transmitted; the correct positions of fields 
within a line is maintained. 


A possible problem can arise if the operator uses the 'ERASE EOF’ key at 
the beginning or within the screen line. This key will clear that field or 
line to 'null' characters. If the sursor advance key (+) key is then used 
to bypass some positions on that line, the 'null' characters will remain. 
Any following fields will then be moved to the left and give an incorrect 
position for those entries. For Fixample: 


Operator keys: AAAA 
Erase EOF Key pressed: 
Operator moves curs or 10 pos. 


Operator keys NNNN 
Displayed on screen: AAAA NNNN 
Transmitted to CPU: AAAANNNN 


To eliminate this condition the operator should be careful to use the 
space key to advance the cursor following the use of the 'ERASE EOF' key. 
This will place the desired blank characters in the correct screen positions. 


If the 'ERASE EOF' key is not used, the (=) key can be used as desired. 
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Screen ID 


All of the selection options prompt the operator to enter both a Screen Name 

and ID to retrieve the desired screen format. This ID is a two position sequential 
number assigned by the FDP to all new screen formats. It is included to allow 
multiple versions of a screen format with the same name on the FORMAT disk file. 
The operator can then select a particular version by also entering the ID reference 
along with the Screen Name. If no ID is entered, all the programs have been 
written to select only the first Screen Name match found in the FORMAT disk 

file. (see Program Description for FORSC5 for an exception to this). So only — 
in the case of multiple screen formats with the same name should the operator be 
concerned with Screen ID. 


328x Printer 


Screens being created or modified can be copied to a 328x printer at any time 
by pressing the PF1 key. A printer of this type is mot required for the success- 
ful instaliation or operation of this system, but can be used if available. -The 


MENU screen can also be printed on a 328x printer if desired by pressing the 


PF1 key. 


Program Function Keys 


The only Program Funtion key used is PF1 as described above. 


Model 8, 10, 12 Users 


The System Operator will have to allocate the Printer and MFCU'/3741 to the CCP 
partition for the execution of FORSC5 and FORSC7. The suggested Assignment 
Set provided includes this allocation in the // SYSTEM Statement. If a batch 
program level is also active, these devices must then be allocated to OTHER for 
use in this program level. 


i.e. ALLOCATE PRINTER, CCP 
or 
ALLOCATE PRINTER, OTHER 


See your System Operator's Guide for these commands. 
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RETURNING TO MENU SCREEN 


The user can normally return to the MENU Screen following the successful 
completion of each option by pressing the Enter key. An exception to this 
is Option 8 where the user must press the Clear key and enter the program 
name FORMAT. , 


Also, anytime an error message is presented (i.e., Screen Not Found, 
Truncated Screen, etc.), the user is given the opportunity for retry. 

To return to the MENU Screen after an error if no retry is desired, press 
the Clear key and enter the program name FORMAT. 


PROGRAM DESCRIPTIONS 








Non CCP Programs: 


SUMMARY OF PROGRAMS 


FORLOD File Creation Program 

FOROR1 File Reorganize Program 1 
FOROR2* File Reorginize Program 2 
FORPRT* Screen Documentation Aid 
FORSET* Load Existing DFF Specifications 


CCP Programs: 


FORMAT Display Menu 

FORSC1 Process Options 

FORSG2 Screen Generation 

FORSC3 Screen Completion 

FORSC4 Display, Modify, Delete Options 
FORSC5* Display Screen/Output DFF Specs 
FORSC6 Assign Field Names 

FORSC7* Punch RPG Specification 

FORSC8 Execute Screen 


The above programs with an asterisk following their name require Unit 
Record modules (Printer, MFCU, etc.) for execution. Assure that the 
normal RPG compiler is used for the non-CCP programs and that the CCP 
RPG compiler is used for the CCP programs. 


Name 


$ZFOR1 
$ZFOR2 
$ZFOR3 
$ZFOR4 
$ZFORS 
$ZFOR6 
$ZFOR7 
$ZFOR8 
$ZFORI 
$ZFORA 
$ZFORB 
$ZFORC 
$ZFORD 
$ZFORE 
$ZFORG 
$ZFORJ 
$ZFORH 
$ZFORW 
$ZFORX 
$ZFORY 


SUMMARY OF SCREENS 


Function 


Screen creation input. 
Completion information prompt. 
Print screen image/output RPG specs. 
Display option prompt. 
Display screen. 

Screen names display. 

Modify function prompt. 
Modify entry screen. 

Delete function prompt. 

Field name changes prompt. 
Field name changes common. 
Input field names. 

Output field names. 

Output gen field names. 

RPG specifications prompt. 
Blank screen. 

Execute option prompi. 

Error Message Line. 

MENU Screen. 

Linkage To FORMAT Program. 
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LOAD DFF SPECS TO DISK 







DFF SOURCE| OR 


FORMAT FORSET 


LISTING 


PROCEDURE NAME: FORDFF 


SOURCE 


DFF CARDS LIBRARY 


PROCEDURE NAME: FORRPG 


RPG CARDS 


SOURCE 
LIBRARY 
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FORLOD 


This program is executed initially to create the disk file (FORMAT) used 
for screen preparation and maintenance. The size of the format file is 

a user decision depending on the number and size screen formats to be 
created. ; 


For each screen format created the file will contain the following records: 


4 records header and OCL 
24 records screen image 
? records DFF specifications 


The number of records created for DFF specifications will depend on the 
content of the screen. A reasonable average number of records for each 
screen format is 100. 


OCL Required 


// LOAD FORLOD,R2 (MODIFY IF NECESSARY) 
- FILE NAME~FORMAT »UNI T-?? » PACK~ 22272? yRECORDS—222? 
RUN 








FOROR1 


This program is used to create a direct file. This file (FORMATWK) is 
used as a work file during reorganization of the FORMAT file. Care 
should be taken to insure that this file is large enough to hold all the 
records from the FORMAT file minus the deleted screens. This is an 
off-line program to be used in conjunction with FOROR2 program. 


OCL Requir ed 


// LOAD FOROR1,R2 (MODIFY IF NECESSARY) 
// FILE NAME-FORMATWK » UNI T—?? 9 PACK— 2227772 ,RECORDS—??72?? 


f/f RUN | 
( 








FOROR2 


This program is used to reorganize the FORMAT file. With this aid, 
reorganization means the removal of deleted screens from the FORMAT 
file and restructuring the identification numbers and the forward and | 
backward pointers in the header records after the removal of deleted 
screens. 


This program reads the FORMAT file as an input file and uses the 
FORMATWK file created by the FOROR1 program as an output hold 

file. As the program executes, a listing on the System's Printer will 
show all the screen names in the FORMAT file and indicates the ones 
that are being removed. The total number of screens along with the 
number of records used in the new FORMAT file will be shown at the 
completion of execution. The old FORMAT file should be scratched and 
the FORMATWK file should be copied back as the new FORMAT file. 


FOROR2 


OCL Required 


// LOAD FORORZ,R2 (MODIFY IF NECESSARY) 

/f FILE NAME-FORMAT sUNIT-?? »PACK—2272222 

FILE NAME-FORMATWK »UNIT-—22 »PACK~722722? 
RUN 





FORPRT 


This program is executed in a batch mode and is used to produce supporting 
documentation from the DFF specification records. Separate arrays are used to 
print the output and input functions for a screen. This allows overprinting 
for fields defined as output/input. . . 


The field is first tested for generated data. If it is a generated field, the 
data is moved to a working array (LN). For non generated Output Fields the 
field type is looked up in a table (TABA for output fields and TABE for 
output/input fields) and the resulting table entry (TABB or TABF) is then 
moved to.the working array. The positions of the array (LN) are then 
individually moved to output line array (LNO). 


Fields with input characteristics are then looked up in array TABC and the 
resulting table entry (TABD) moved to the working array (LN). The elements 
of this array are similarily moved to the input line array (LNI). 

Each of these arrays (LNO, LNI) is then moved to the output and input arrays 
(IN and OUT). On recognizing the control card record, a cycle is initiated to 
print the resulting display. 

The program is distributed so that all Output Non Generated fields will print 
an asterisk (*) and all Input field types will print a period (.). This can be 
be altered by modifying the table entries if desired. 

External Switch 1 Option - allows documenting overlay screens. 


Program Halt (H1) - Partial Line Duplication - invalid. 


OCL required - // LOAD FORPRT,R2 (MODIFY IF NECESSARY) 
// RUN 


“If disk is used for the output of DFF specifications, an additional File OCL 
should be added: 


4/ FILE NAME-DFFCARDS »UNIT—2?,PACK~??7777? 
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FORSET 


This program is executed in a batch mode and is used to list and output 
existing DFF Specifications to the FORMAT disk file. Both the screen image 
and DFF Specifications are written to disk on the same format as produced 
by the on-line Creation Program, FORSC2. The characters used to represent 
the screen image are consistent with those of FORSC2. The following arrays 
are used to determine the characters to represent the fields: 


TYP ~- Possible field types (1-8). 

OE - Output Execution Field characters. 

OG - Output Generated Field Start & Stop Characters 

I - Input Field characters. 

OIE - Output/Input Execution characters. 

OIG - Output/Input Generated Fields Start & Stop characters. 


The Field Type fo: each Specification is used to LOKUP in the array TYP, 
then the resulting Index is used to compare the entry in the corresponding 
array (OE, OG, I, etc.) for a blank. If either the entry is blank or the Field 
Type is not found in the TYP array, the default Field Type (1) is used for 
the field. The field defining characters or in the case of a Generated Field, 
the literal is moved to the array OUT for later output to disk. 


It is possible that valid DFF Specifications may be present that are not valid 
with the use of this aid. The following is a list of possible errors and the 
resulting program action. 


Partial Line or Field Duplication Specifications: the specification 

is dropped. 

Field starting in Line 1, Pos 1-10: No screen image is created 

but DFF Specification is written to disk. 

Invalid Field Type: Default used. 

Generated Field starting in the first position of a line: the 

Starting Field Character is dropped in screen image. 

Field extending past position 79 of a line: the field is 

truncated at position 79. 

The FORMAT file has an Active Screen not completed by 

FORSC3: program terminated and remainder of the input 

is bypassed. 

The FORMAT file is full: program terminated and the remainder 

of the input is bypassed. 

Complete Line Duplication Specification: the correct screen image 
is produced, the Specification is written to disk, and the Screen 
Header is marked with the 'Truncated Flag'. This flag will prevent 
the output of either the DFF or RPG Specifications. The User should 
execute the Modify Function and the System will produce screen 
entries usable by all functions. 
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Since the program will bypass any input records without a C or F in 
column 1, the OCL can remain with the input on executing this program. 


Multiple screens can be written to disk by removing any /* cards between 
decks. 


OCL Required - // LOAD Forsey R22 
MOOIFY [Ff 
// FILE NAME-Fo NECESSARY) 








am) 


FORMAT 


This program outputs the basic MENU screen ($ZFORX) to the 
3275/3277. The user then selects from the options on this screen 
to initiate the selected programs. This is the only CCP program 
name that this operator must remember and enter. 
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FORSC1 


This program is loaded with input from the basic MENU screen 
($ZFORX). -Tests are made to assure that only one selection was 
made and that the work file (FORMAT) is not full. If a screen is 
'active', initiated but not corapleted with FORSC3, the screen $ZFOR2 
is forced out to request the required completion information. If the 


above edit tests are successful, the following options and screen selections 
result: 


Option Screen Function 
a $ZFOR1 Screen creation input 
2 _$ZFOR3 Print screen image/output RPG specs 
3 $ZFOR4 Display option prompt. 
4 $ZFOR7 Modify function prompt 
5 $ZFORS Delete function prompt 
6 $ZFORA Field name changes prompt 
7 $ZFORG RPG specifications prompt 
8 $ZFORH Execute option prompt 


PF1 key will print the displayed screen on the 328X printer defined in 
the assignment set with the name PRINT1. 
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FORSC2 


This program is loaded with input from either the creation screen ($ZFOR1) 

or modify entry screen ($ZFOR8). The input fields to the program consist 

of the 24 lines of screen input. A test is first made to assure that a prior 
format isn't partially completed or the disk file (FORMAT) full. In the case 

of a format partially completed, the keyboard is restored with no additional 
processing. This will occur only when this aid is being used simultaneously 
from two or more terminals. When the other terminal completes its screen, this 
entry will be honored. 


The program output to the format file consists of 24 lines of screen image 
followed by the three entries from the array OCL. The specific entries from 
the screen are then interrogated to produce the field specification records. 
Three resulting tables are used to produce the field specifications: 


TABA - Field starting character 

TABB - Field enging character 
TABC - Field starting character 

TABD - Type of field; input, output, output/input 
TABE - Field starting character 

TABF - Field type specification 


The presence of a field terminating character in TABB defines this field 
as a generated field. 


If a generated field is started but the termination character not properly 
entered to terminate the field, the field will be automatically terminated 
at the last possible position (78) of that line. 


When a non-generated field is started the program tests to insure that 
the same starting character is propagated. A character different from the 
original will terminate the field. 


All fields with input characteristics will be genexated with autoskip - yes. 
The user can code a soncatonation sign (j) in place of the normal termin- 
ation character to obtain the Autoskip-No option. 


The program interrogates the first five positions of lines 3-24 for the 


characters '*DUP*!. On recognizing this entry, the previous line is 
duplicated to the current line. 
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If the PF1 key is pressed rather than the Enter Key, the screen image 
will be copied to the 328x printer with the terminal name 'PRINT1'. 


A count is maintained of the total length for both the input and output 


fields. This count is writted to the screen's header record for use 
with program FORSC7. 
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FORSC3 


This program is loaded with input from the 'Screen Creation' screen 
($ZFOR2). Input fields to this program are: PRUF Program definition, 

Screen Name, Erase Option, and a Screen Name and ID (optional) to 

be used for the DFF Field Name Specifications. If a Screen Name/ID is 
entered for Field Names, the field specifications are located and the 

following is saved (Array-FLD) for each field (MAX=150): screen location, 
length, and type definition. Any fields from the current screen matching 

all this information will acquire the field names (Array-NAM) from the 
selected fields. If a PRUF Program Name is entered, a field specification 
record is activated. If room doesn't exist in the disk file (FORMAT) to 
contain all required specifications. FORSC3 issues an operator message 

for a 'Truncated Screen'. Position 15 of the header record is also updated 
with an asterisk indicated that this screen is 'Truncated'. Format file record 
#1 and the current and next header records are updated with the forward and 
backward pointers. 





FORSC4 


This program is loaded and used for all of the folowing screen options: 

Display Function ($ZFOR4), Modify Function ($ZFOR7), and Delete Function 
($ZFOR9). A screen code (pos 23 of input) defines the function selected. 

The following fields are input to the program: Last ID (used for screen overflow 
of names listing), Screen Name, and Screen ID. If no screen name is entered 
with the display function, a list of active screens along with next record to 

be used is displayed ($ZFOR6). If more than 30 names are active, a Put-Overide 
is used to update screen 'Last ID' field and instruct the opeator to continue. 


With a screen name entered, this name and the ID (optional) are used to 
locate the correct screen in the format file and output one of the following: 


Function Screen Code Output Screen 

Display D $ZFORS 

Modify M $ZFOR8 

Delete Xx Put override message. oy 
The delete function requires that both screen name and ID must be entered. ( 


The operator will be issued a message confirming the deletion. 
Following the completion of each function except modify, the screen ($ZFORY) 


will be output. This screen will complete the linkage back to the Menu Screen 
($ZFORX) on the next depression of the Enter key. 
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FORSC5 


This program is loaded with input from screen $ZFOR3 and is used to 
output the DFF Specification Records. The image of the Screen Input is 
also printed on the System Printer. Input fields to the program include 
Screen Name, ID, Print Option, and Puncr Ontion. The program first 
checks the print and punch options for an X .ndicating that this function 
is not to be performed. If no Screen Name is entered, all active screens 
will be selected. Otherwise the Screen Name and ID (optional) are used 

to locate the selected format and output the request. If muitiple screen 
format entries exist with the same Name and no ID was entered, all versions 
with a matching name will be selected. 


If the screen Header Record has the Truncated Flag on (pos 15 is an asterisk), 


an operator message will be used and no DFF specifications will be output. If 
no errors are found, the menu screen ($ZFORX) will be output prior to program 
termination. With the No Screens Active or 'Truncated Screen' messages the 
screen $ZFORY will be output. This screen will complete the linkage back to 
the MENU screen ($ZFORX) on the next depression of the Enter key. 
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FORSC6 


This program is initated with option 6 and is loaded from any of the following 
program screens: 


Initial Screen $ZFORA 
Input Fields $ZFORC 
Output Fields $ZFORD 
Generated Output only fields $ZFORE 


FORSC1 outputs the initial screen ($ZFORA) which requests the operator to 
enter the Screen Name and ID (optional) selection. The next three screens 

are presented in a sequence most logical to interface the Field Names to an 
RPG program. Each of the screens is preceeded by a common screen ($ZFORD) 
presenting the field locations, length and types. The common screen is used 
to keep the largest field descripter table and text length smaller to reduce the 
program size. 


The array SEL is filled with the Relative Record Number, Name, and decimal 
positions ($ZFORC only) for each of the possible 30 fields for display. Each 
field is interrogated for Numeric and if so, the decimal field is changed from 
Type 6 to Type 3 with a Put-override to allow operator changes. The operator 
can also enter changes to the cursor position if desired, but the field selected 
must be displayed. Entering a '* ' for the cursor position will delete 

a cursor position. 


The screen for output fields ($ZFORD) will reflect any prior names entered 
on the Input Fields Screen ($ZFORC) for Ouptut Input fields (represented as 
type U). Any name changes ente-ed on the Ouptut screen for Output/Input 
fields will produce a '2nd Name! for that field. This '2nd Name’ will not be 
used on the DFF Specifications bu: only with option 7, RPG II Output Specs. 
Entering '* ‘ in the Name field will delete a '2nd Name' if present. 


PF1 key or completion of all screens will output the MENU Screen ($ZFORX). 


The listing produced by selecting MENU Option 2 will assist the User in 
relating the generated field names to the actual screen entries. 
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FORSC7 


This program writes to disk or diskette or punches to cards RPG Il 
Specifications derived from selected screen names. 


The execution of FORSC7 begins with selecting option number seven 

from the MENU screen. This selection will display the RPG II Specification 
Options Screen ($ZFORG). The RPG II Specification Options Screen has six 
parameters which may or may not be chosen. 


Parameters number one and two ask for the Screen Name and ID (optional) 
that records are to be created from as RPG II Input specifications. If a 
Screen Name is specified, FORSC7 will search the selected Screen for all 
Input and Output/Input Display Format Facility (DFF) specifications and 
create RPG I Input records for those fields. If you bypass this option, 
FORSC7 will not provide RPG II Input specification for any Screen. How- 
ever, FORSC7 will provide a RPG If File specification for input along with 
the standard five fields (first fifteen position of the RPG II input area) used 
with the Communication Control Program (CCP). 


Parameter number three asks for the number of RPG 0 Calculation Specification 
comment records to be inserted between the RPG II Input and Output specifi- 
cation records. If this option is bypassed, there will not be any RPG II 
Calculation comment records inserted. 


Parameters number four and five ask for Screen Name and ID (optional) 
that records are to be created for as RPG II Output specifications. If a 
Screen Name is specified, FORSC7 will search the selected Screen for all 
Execution Output Display Format Facility (DFF) specifications and create 
RPG II Output records for those fields. If you bypass this option, FORSC7 
will not provide RPG II Output Specification for any screen nor will it 
provide any of the standard RPG II Output Specifications used with the 
Communication Control Programs (CCP) output operations. 


Parameter number six asks for a name that FORSC7 can use as a program 
name in the RPG II Specifications being created from the selected Screens. 
If this parameter is bypass, FORSC7 will use blanks for the program name. 


Refer to SAMPLE PROBLEM for examples. 
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FORSC8 


This program is used to execute the Display Format Facility (DFF) specifications 
in the FORMAT file. 


The execution of FORSC8 begins with selecting option number eight from the 
MENU. screen. This selection will display the Execution Options Screen ($ZFORH) 
This screen has three parameters which may or may not be chosen. 


Parameter number one which will always be completed, asks for the screen name 
you wish to execute. 


Parameter number two asks for the screen identification number in case there are 
duplicate format. names in the file. If this parameter is bypassed, the default is 

to execute the first screen name found in the file matching the screen name entered 
in parameter number one. 


Parameter number three asks for the symbolic name of a device to display the 
selected screen. If this parameter is bypassed, the screen selected will be executed 


on the device making the request. If a symbolic device name is entered, the rs 
screen selected will be executed on that device provided it is signed off or is ( 


classified in the assignment set as a data terminal. This parameter allows the 
user to place multiple screens o.1 other devices. 


FORSC8 returns two error messages to the user. One message is that the screen 
cannot be found. The second message is that the screen is Truncated. In both 
cases the user will want to examine the screen name selected. 
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FILE DESCRIPTIONS 
File Name: FORMAT (FORMATWK) 


Purpose: Contains the screen image and DFF Specification records for 
screen formats created. 


Creation: FORLOD 

Updated: FORSC2,FORSC3,FORSC4,FORSC6 .FORSET 
File Media: Disk file 

Organization: DIRECT 


Record length: 80 


Record Field No of Field 
Type Name Description From-To Bytes Length ~~ 
MASTER oe Unused 1-6 6 ee 
NEXT Next Header Rec.@ 7-10 4 4,0 
- WORK Open Header Rec.@ 11-14 4 4,0 
ACTIVE Active Format Flag 15-15 1 1 
CURSOR Temp. Cursor Pos Save 16-21 6 6 
5 Unused 22-79 58 sins he 
RECCOD Rec. Code 'M' 80-80 1 1 ( 
HEADER ID Screen ID 1-2 2 2,0 
PREV Previous Header@ 3-6 4 4,0 
NEXT Next Header@ 7-10 4 4,0 
-- Unused ~ 11-14 4 -- 
TRUNG Truncated Flag 15-15 1 1 
SCRNID Screen Name 16-21 6 6 
CURPOS Cursor Pos. 22-27 6 6 
INLTH Input Text Length 28-31 4 4,0 rms 
OUTLTH Output Text Length 32-35 4 4,0 
me Unused 36-78 43 te 
DELET Delete Flag 79-79 1 1 
RECCOD Record Code 'H' 80-80 1 1 
OCL/Screen -~ Record Image 1-80 80 80 
Lines 
DFF Specs -- Record Image L=72 72 72 
_NAME2 2nd Name 73-78 6 6 
DECPOS Dec. Pos. 79-79 1 1,0 
DELETE Delete Flag ‘80-80 1 1 


FILE DESCRIPTIONS 


File Name: DFFCARDS 


Purpose: Contains card Image of DFF Specification 
Records and OCL. 


Creation: Not required. 
Added To: FORSC5 
File Media: Cards, Diskette, Disk File 


Record Length: 96 {last 16 pos not used) 


File Name: RPGCARDS 


Purpose: Contains card image of RPG Specification 
Records and OCL. 


Creation: Not required. 
Added To: FORSC7 
File Media: Cards, Diskette, Disk File 


Record Length: 96 (last 16 pos not used) 
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CCL TO COPY SCREEN DESIGN FACILITY OBJECT PROGRAMS — SCREENS AND 
PROCEDURES FROM THE DISTRIBUTION PACK TO UNIT WHERE CC P 
EXPECTS THEM TO RESIDE 


t # # 
% WH He 1 


Hee oe He oe Se ee ae ah ee He ee eK HE ek A RK EAA EERE RRA RHEE SE HERE EH KEARSE 
4/ LOAD $MAINT SFL 

4/ RUN 

// CGPY FROM—R1sLIBRARY—O» NAME—FOR] ALL, RETAIN—PoTO-?? 

4/4 COPY FROM—RIsLIBRARY—O,NAME—SZFOR.ALL pRETAIN=P y UNI T—72 

4/ COPY FROM-R1leLIBRARY—P »NAME—ALL ,RETAIN—-P, TO-2?? 

4/ €ND 


HR Be oe ee He ae ee ee ee he ae he ee ae ae ae He ee ee ae Be he oe he Se ae ae ee ae He ee He he ee he he He ee He ee ee eRe Ae A OR He ( 


* * 
* BRINGING UP CCP-— * 
% ae 


Be HE Be ee A he a a Se ae a oe a eae ae ae he ae he a he ae hee oe he he oe he oe he oe a oe A eae Se ee ee ae 2 ae He he eo ae ee ee ee ee 9K OK OK aK 


// LOAD $CCP,?? *FIRCC Pe 

/f FILE NAME-FORMAT, UN [T-72,PACK—27727277? 

// FILE NAME=DFFCARDS,» INI T—?? 9 PACK=—2277727 5 RECORDS? 77? DISK 
// FILE NAME=RPGCARDS » INIT~?? » PACK—?2772725 RECORDS~7?77 OPTIONS 
// RUN 


He ee i ae ae a he ae a oe a a oe he ae aE ae a 2 a a ae ae ae ae he a akc oi a a ae ae ae ae ee oe oe a a KK ae ee oe a aR IR He KE de 
* $e 


* DISK GPTION -— COPY THE DFF SPECIFICATIONS TO SOURCE LIBRARY = 


te 
* 


Mee HE ae He ae He ae ee fe ae he a ee ee Re ae oe oe oe ee fe ake oe ee ae fe oe Be eo Oe a ac a ae He Ae ofa ak eo oe He ee a ae ae ae ae ae ek ie aK 


ff LOAD $MAINT SFL *FORDFF* 

/f FILE NAME=DFFCARDS, UNI T—??9PACK—-22727772,RETAIN]S 

ff RUN 

// COPY FROM-OISK,FILE-DFFCARDS, RECL—96, TO-??,RETAIN-P 
f/f END 


Be ee Re ee he Oe A I a AK A ae RC A a a a ee a A ee a Re A a ee EO ER EE ( 


* ; * 
* - DISK SPTION — COPY THE RPG SPECIFICATIONS TO SOURCE LIBRARY % 
* * 


RRS Pe Ro eo i a ae a ae a oe oe ae ae a oc oe ae ae ae oe oe A oe ea ae oe a a oe oe ee 2 2 ee he ee He ae Ee oR aK KE 


//f LOAD SMAINT,F1 *FORRPG* 

// FILE NAME-RPGCARDS, UNI T=?? 9 PACK=-2727777 »RETAIN@S 

ff RUN 

//f COPY FROM=DISK, FILE-RPGCARDS »,RECL—-96,5 TO ??59RE TAIN=P 
//- END 


BCA ae RE A A ee Be AE ee he a he ee 2 aR a a he He a a a ee ee oe ae he i 2 eae SR eS Oe Be 2 ee He Be kk ae AE 


* * 
* DISK OPTIGN — ONCUMENTATION OF SCREENS WITH *FORPRT&-— * 
* * 


he oh oe a he oe i oe a fe ee hc a oe ae he ae ae eee oe a oe ee ae ee oe Be ae oe eR ee ee i a A ee i See He ee He a KE 


ff LOAD FORPRT, ?? *FORPRT* 
‘f/f FILE NAME-DFFCARDS «UNI T—?? ¢ PACK~2277?? 
// RUN 





MR ERR ERE ERK ERE AER R ERAS EEKKEKAEKKE ARERR EKERKEKE EK KKEREKEERKK 


* * 
% CREATE THE *FORMAT® FILE * 
* * 


eR ee Ae A OR IE ARK REE EERE REE RREKKERE KERR KECK KREKEREEKE RA RHEE 


/f LOAD FORLOD, ?? *FORLOD* 
4/ FILE NAME~FORMAT UNI T~22,PACK~?222229 RECORDS —?72 279 RETAIN-P 
ff RUN 


AB Me ee Me He a eK a RK RE KEE REE KERRERE KEKE EER EREREEEKEERAKEREKER ERK 


& a 
* REORGINIZE THE *FORMAT® FILE- * 
* * 


We a ae He he ea ae ee a a eK REA KEK RRR RRA ERK KEKE RE REEKK 


// LOAD FOROR1,?? *FOROR1L* 
4/7 FILE NAME-FORMATWK 5 UNI T-?? ¢PACK~22222? sRECORDS—?2227? 
4/7 KUN 


// LIAD FIRIR2Z,?? *FOROR2* 
/f FILE NAME-FIRMATsUNIT=?2?9PADK—- 22727227 
// FILE NAME-FORMATWK g UNIT —22? »PACK—222272 


// UN 

// LOAD $DELET»Fi =*FOROR3* 

// RUN | 

// SCRATCH PACK=222222,UNI T-?2?,LABEL-FORMAT 
// END 

// LIAB $CIPYsFL *FORORGE 


4/7 FILE NAME-COPYINGUNIT=??9PACK—227722?5LABEL-FORMATWK gRETAIN-S 
// FILE NAME-COPYO,UNIT-?? 9 PACK-2272225RETAIN—PsRECORDS-2277?5 
44 LABEL-FORMAT 

// RUN 

// COPYFILE OUTPUT-DISK 

4/ &ND 


RRR KAA KKK KK RRR A KEK RRR E EEK KR KEE REKK ERE KEKE REE EEKRRREKKKKAEKEKEERE 


Xe %* 
* LOAD EXISTING DFF SPECS. TO *FORMAT®. FILE * 
* %* 


ee a Ai ae ae ak a a OR RK REE EEK ERE EEE E EE ERE RERE EERE REEE KERR EER EK ERE 


4/ LOAG FORSET,?? *FORSET*® 
// RUN 





SR ee EK RRR RR RK RE RR RK RA RAKEAE REAL RARRAEREKAARRAECARAKARK EAR 


# 
e 
* 


CREEK CRE RE REREKA EK EKRE CRAKE RRA KAA REESE AKARLERRKASLERHKKERKKRRKEK 


ff 
tf 
‘ft 
fé 
Sf 
4 
(é 
‘¢ 
/¢ 
4f 
‘f 
‘ft 
‘ft 
44 
‘é 
% 
fd 
// 


MODEL 04 ASSIGNMENT SET 


SET [0-F,ACTION-REPLACE»DFLTEXEC-NO 
SYSTEM MINUPA-17.25K eMINTPBUF-2560, 
PGMREQL~20 »COMMANDL=50- TRACEBLK~-2, 
DFFPACK=-PROGRAM 
TERMATTR ATTRID-1_ TRANSLAT-YES,UPCASE= ~YES»BLKL- 512, 
DATAFORM=MESSAGE eDFF3270-YES 
TERMATTR ATTRID—29 TRANSLAT-YES»UFCASE~YES» BLKL=512, 
DATAFORM=MESSAGE,DOFF3270-NC 
BSCALINE TYPE-CS,»POLLLIST=-'01,02% sLINENUM-2 
BSCATERM TERMID-01¢-TYPE- ~3277M2eATTRID—*1e2%y 
COMMAND-YESeOFFACTN-HOLD, 
ADDRCHAR=*6060C1C1*,POLLCHAR-*4040C1C1* 
BSCATERM TERMID~025TYPE~3286M2,ATTRIO—"1'%g 
COMMAND=-NOe 
ADDRCHAR-*6060C 202%, POLLCHAR=*4040C2C2* 
TERMNAME NAME-TERMOL.TERYID-00 
TERMNAME NAME=TERMO2- TERMID-O1 
TERMNAME NAME=PRINT1.TERMID-02 
DISKFILE NAME-FORMAT »ORG=D,RECL-80 
DISKFILE NAME~DFFCARDS ¢ORG-C,RECL-96 
GISKFILE NAME-RPGCARDSs,ORG-CyRECL-96 
PROGRAM NAME~FORMAT >» ENDMSG=NO, 
DFFMTERM=~1 »DFFNDF-1 eDFFSFDT-256,PGMDATA-NO, 
PACK=PROGRAM 
PROGRAM NAME-FORSC1.ENOMSS-ND, 
FILES-"FORMAT/DG/NOSHR*, 
DFFMTERM=250FFNDF<-3 »DFFSFDT~400,PGMDATA-YES, 
PRUFSZ=$ZFURX ePRUFLVG- 649 
PACK=PROGRAM 
PROGRAM NAME-FORSC2».ENDMSG=NO, 
FILES-*FORMAT/DU/NOSHR® » 
DFFMTERM~-2,» DFFNDF-3,0FFSFDOT-400, 
PRUF$Z-$ZFOR1 « PRUFLNG-1974, 
PACK=PROGRAM 
PROGRAM NAME=FORSC3,ENDMSS-NO, 
PRUFS$Z-$ZFOR2 .PRUFLNG-64, 
FILES=*FORMAT/DU/NOSHR® , 
DFFMTERM—i»,DFFNDF-1_DFFSFDOT-256,5 
PACK~PROGRAN 
PROGRAM NAME-FORSC4.ENDMSG-NO, 
FILES-"*FORMAT/DU/NOSHR ® » 
DFFMTERM=1, DFFNDF<-3,0FFSFOT-4509PGMDATA-YES, 
PRUFS$Z-$ZFOR4. PRUFLNG-64, 
PACK-PROGRAM 





ae 


0001 

000c. 
0003: 
0004 

9005C 
0006 
0007": 
0008 
0009: 
OOLG - 
00116 
00120 
00330 


09156 
00160 
00170 
00180 
00190 
00200 
00210 
00225, 
002 

0024 

00250 
00260 
00270 
00280 
00290 
00300 
00310 
00326 
00° 9 
00340 
00350 
00360 
00370 
09380 
00390 
00400 
00410 
90420 
00430 
00440 


4f 


‘4 
44 
4é 
fd 
4é 
44 
44 
44 
‘f 
4 
4h 
44 
fd 
‘4 
M 


4/ 
/* 


hs 


oo 


GO 


PROGRAM NAME~-FORSC5,.ENDMSG-NO- 


FILES-*FORMAT /D0G/NOSHRsOFFCARDS/CA/NOSHR® , 


PRINTER-YESsPGMDATA-YES, 


DFFMTERM-1,D0FFNDF-1,0FFSFDT-40C, 


PRUF$Z-$ZFOR3 ePRUFLNG-64, 
PACK=-PROGRAM 

PROGRAM NAME-FORSC6s ENDMSG-NO, 
FILES~"*FORMAT/DU/NOSHR*, 
PGMDATA-YES, 


DFFMTERM=1,DFFNDF-1-0FFSFDT-1434, 


PRUFS$Z-$ZFORC « PRUFLNG-869, 
PACK-PROGRAM 
PROGRAM NAME-FORSC7~.ENDMSG-NO,e 


FILES-*FORMAT /OG/NISHR gRPSCARDS/CA/NDSHRE , 
OFFMTERM~1, OF FNOF-1,0FFSFOT-128, 


PRUF$Z-$ZFORGs PRUFLNG-256 
PROGRAM NAME=-FORSC8. ENDMSG=NO, 
FILES-"FORMAT/DOG/NOSHR*, 


DFFMTERM=1,D0FFNDF-1 DFSSFOT-128, 


PRUFSZ=-$ZFORH»s PRUFLNG-256 


00459 
00460 
00470 
00480 
00490 
90500 
90516 
00520 
00530 
00540 
30550 
00560 
005706 
00580 
00590 
00600 
90616 
0G620 
00630 
00640 





APPENDIX B 


(MODELS 8, 10, 12, 15) 





fo 


Be Se oe ae he ee he ae Se ee oe he i ae He ee eae ee ae oe 2 oh ae oe oe oe ae he ee A ae ae ae hee oe ee ee he ae eH Ae ea ok ae ate oe 


* 
* BRINGING UP CCP-— * 
* * 


BR Me Me Be ee Be 3 a a as A Re HRC SF ae he eae oe he ee ae OK ae a ae he fe a ae he ae he he oe oe ah ae a i ake ea RR a He ae oe ee 


4/ LOAD $CCP,?? *FORCCP* 

Sf FILE NAME-FORMAT gUNIT—22,5 PACK—2277227 

// FILE NAME=DFFCARDS» UNI T—??,5PACK—222277 5 RECORD S-?22? DISK 
// FILE NAME~RPGCARDS, UNI T-?? 9 PACK=?22277? 9 RECORDS —2777? OPTIONS 
7/ RUN 


HR A A oe ee He a eRe A 2 ea he Be a a ee ee ae a ee ae ee ke ee ae a a he ae he a a oe oe ae ak ak aK ae a oe a fe aca ea se oe dake ake a ok oe & 


* * 
* DISK OPTION - COPY THE DFF SPECIFICATIONS TO SCURCE LI8RARY * 
% * 


2k Se Be ee ae 2 ae eK aK a ee ae A fe ae a ae he 2 a he abe fe a oe a eB ae ee a oe ae fe oe ae a abe fe oe oe ae ae ea a ie oe oh ae ax a oa ok 


47 LIAN S$MAINT,FL EF OCRDCRX 

f/f FILE NAME-CFFCARCS, UNIT=2?,PACK—27722729RETAINR=S 

f/f RUN 

ff COPY FROM—DISK,FILE-DFFCARDS , RECL—-SE ¢ TT-7 2, RETAIN=P 
47 ENN 


BEB MEO HR Te ee a aE ae ee ee a a a a 2 oe Re af a ae ae ae ae a ae ae ae ke a ak he a ae ae ee a fe a ake a oe fe oe ea fe ae he ae ae a ae ae akc oe oe 


* * 
* DESK CPTTON = COPY THE RPG SPECIFICATIANS TO SMTURCE LIBRARY * 
* * 


MEME eH A Me He Se a OE A a OK 2 ee ae te ae a ee a a abe ae a ae a ote ae oe ee he ae a a oe he oe Se a a a oe oe a ea oe oe akc ak oe ic a ee oa a 


4/ LQAD $MAINT SFL FF ORRPG* 

/f FILE NAME=RPGCARD Sy, UNI T= 2? 9 PACK—227227729RE TAINNS 

7/ RUN 

// COPY FROM—DISK,FILE-RPGCARDS, RECL-96, TO-??7,RETAIN-P 
“/ END 


He Re He ae fe Ree ae ee ee ee a i ee ae oe ae oe ea ae 2 3 oe a af a oe i as a a aK ae oe 2 ak Me ae ae ae Be a 2 ae a ake oe ea ea a ae ae he ae ok ok eae a ae oe ok 


% *K 
* DISK OPTION — DOCUMENTATION OF SCREENS WITH *FORPRT &-— * 
% ‘ * 


2 Be He Oe ae ie ee 2 ee ee a ee ae he ae Se a he eae eae ee ake he oe ae ae ae ae a af ee a ae Se ae a oe ae a ee he ee aK cae ak oe eae oe ok a ae ae ake 


// LOAD FORPRT,2?? ¥*FORPRT* 
/7 FILE NAME=DFFCARDS, UNI T-?? 9 PACK—2? 222? 
// RUN 


Sakae de dea keke RRR REAR A KAA RARE AERA KER REESE ARERR KRESS K SE EEE KEE 


* # 
* CREATE THE *FORMAT® FILE * 
* * 


KRRRRKRKKR KEK KK RARER KAA KEKE AERA RK REASREKERERERERKREKE KEES CSE KE LRK 


// LOAD FORLOD, 2? *FORLOD* 
// FILE NAME-FORMAT oUNI T-2?? ePACK~-222222?9RECORDS—?7?7??9RETAINGP 
4f RUN 


ie oi a Be Seo ae ak ae a ak ae ai ak a a a ek RAO a aR aE RARER REE EERE EERE EEE SHAE S 


bs ¥ 
* REORSINIZE THE *FORMAT® FILE- * 
xe & 


1 282 AH ae a a oe ae ae a a ae Be eC A ae oe ae a a 2 a a a he a a a ae a a aR a a a 


ff LOAD FOROR1»?? *FOROR1* 
// FILE NAME-FIRMATWKs UNI T-2??9PACK=2277727?9RECORDS~ 277? 
f/f RUN 


//f LOAD FOROR2Z, 2? *FOROF.2* 
4/ FILE NAME~FORMAT oUNIT=??9PACK-?227272? 
Sf FILE NAME-FORMATWK gUNIT—2?? pPACK-22272? 


Sf XUN 

// LOAD $DELETsFl *FOROK3* 

44° 2UN 

{/ SCRATCH PACK-?222229UN: T-??eLABEL-FORMAT 
f/f END 

4f LOAD $COPYSF1 “FORO 4* 


“// FILE NAME=COPY INe@UNIT—729 PACK—-22727?9LABEL—FORMAT WK sRETAIN-S 
// FILE NAME=COPYO,UNIT—?7 »PACK—22722?5RETAIN—P pRECORDS~?27 7, 
4 LABEL-FORMAT 

4¢ RUN , 

4/ COPYFILE OUTPUT-DISK 

4/ ENO 


eR RRR AREER KECK RE REERE ERE ERE EREKERERE EEE KE EKREEK EERE 


F E 
* LOAD EXISTING DFF SPECS. TO *FORMAT® FILE * 
& : % 


fe oe 2 a a fe af a ak a a a ae ae ae ae ae oe a ae ae ak ae a a ae a ek RH REE EERE ERR REE RARER RARE 


// LOAG FORSET, ?? *FORSET* 
f/ RUN 





eee 
REVSREAMRKKKKKKRKPCKKAKKKALREKPKKKKKKREKKEKEKKKKKKEKKKKAAKVKRKKAKEKESRREKKKSERRXEO OO] D 





* *00020 
& MODEL 8/10/12 ASSIGNMENT SET #00030 
- *00040 
Qi Abe af 3s 2p afe ape 23E 2H afc aK ahs ON she He ae ie oe ae she ok see ake ee a ea ek Re Re eR eR KRACKER Re Ree EKOOOSO 
00066 
// PAUSE *** MODEL 8/10/12 *#« 00070 
% : 00ce0 
/¢f LOAD $CCPASsR2 RRKKKEEREKKE SCCPAS HRKERKERE HHS 00090 
/f PILE NAME-$CCPFILE,UNIT-R2,PACK-CCPACK 00100 
* /# FILE NAME-$CCPWORK,UNIT=F1 oPACK=FLFIF 1s TRACKS~59RETAINGS 00119 
/fFRURN 00129 
// SET [D-F,ACTION-REPLACEsDFLTEXEC-NO 00130 
(> SYSTEM MINUPA~18.00K.MINTPBUF-3089, 00140 
‘a PGMREQL 20» COMMANDL -804 PRINTER-YES eMFCU~YES¢ 00159 
Vt DFFPACK=PROGRAM 00166 
/¢ TERMATTR ATTRID=1, TRANSLAT-YES sUPCASE~YES» BLKL~768y 0C170 
tt DATAFORM=MESSAGE, DFF3270-YES 00180 
// TERMATTR ATTRID—2, TRANSLAT-YES,UPCASE-YESeBLKL=512¢ 00190 
th DATAFORM=MES SAGE» DFF3270-NO 00209 
Sf BSCALINE TYPE=CS,POLLLIST-*00,01202! 06210 
/¢ BSCATERM TERMID-CO,TYPE—3277M2eATTRID—*1le2'y 00220 
4A COMMAND~YES,OFFACTN=HOLDs 00230 
( / ADURCHAR=*60604040* » POLLCHAR-*40404040% 00240 
‘4 BSCATERM TERMIO-OlsTYPE-3Z77M2sATTRID-"is2"9 00250 
Soul COMMAND-YES»OFFACTN-HOLDs 00266 
/h ADORCHAR—*6060C1C1*, POLLCHAR=*404)C1C1* 00276 
// BSGATERM TERMID0~02~TYPE-3286M2Z,ATTRID—"1%, 00280 
tf | COMMAND=NO¢ 00290 
tt ADORCHAR=*6060C2C 2%, POLLCHAR~*4040C2C2* 00300 
/é -TERMNAME NAME=TERMOis TERMID-00 00310_ 
// TERMNAME NAME-TERMO2+TERMID-O1 00320 
-* TERMNAME NAME=PRINTL»TERMID-02 00330 
1. GISKFILE NAME-FORMAT+ORG-D,RECL-80,DEVICE-5445 (5444) 00340 
** ADD THE FOLLOWING TWO CARDS FOR DISK OPTIONS- 903506 
#® DISKFILE NAME-DFFCARDS «ORG—C eRECL—-96,DEVICE-5445 - (5444) 00360 
#* DISKFILE NAME-RPGCARDS»ORG~C »RECL—96 9 DEVICE~5445 (5444) 00376 
‘BAY PROGRAM NAME-FORMAT » ENDMSG-ND p LANGUAGE-RPGITs 00386 
Che "OF FMTERM=1»> DFFNOF-1, DF FSFDT-256,PGMDATA-NO_. 00390 - 
ff PACK=PROGRAM 00400 
- 7# PROGRAM NAME=FORSC1»ENDMSG-NO, LANGUAGE-RPGITI 60410 
tf FILES="FORMAT/DG/NOSHR*, 00420 
ft DFEFMTERM—2 5 DF FNDF~8 y DFFSFDT—400,PGMDATA~YES» 00430 
-S PRUF$Z—$ZFORXe PRUFLNG-64¢5 00440 
/t PACK=PROGRAM 00450 
// PROGRAM NAME-FORSC2¢ENDMSG-NO»eLANGUAGE-RPGII, 00460 
tf FILES=*FORMAT/DU/NOSHR® » 00470 
‘/ DFEMTERM=2, DFFENCF=3»DFFSFOT—400, 00480 
Wt PRUF$Z=-$ZFOR1«PRUFLNG-1974, 00490 
i. fi PACK=PROGRAM 00500 


PROGRAM NAME=FORSC3,ENDMSG-NO,LANGUAGE-RPGIT 
PRUF$Z-$ZFOR2ePRUFLNG-64, 
FILES~*FORMAT/DU/NOSHR *» 
DFFMTERM-1,DFFNDF~1,DFFSFDT-256, 
PACK-PROGRAM . 

PROGRAM NAME=FORSC4, ENDMSG-NO,LANGUAGE-RPGIIy 
FILES="FORMAT/DU/NOSHR* » 

DFEFMTERM= 1, DFFNOF-3,DFFSFOT-4502PGMDATA-YES» 
PRUF$Z-$ZFOR4sPRUFLNG-64, 
PACK-PROGRAM 

PROGRAM NAME-FORSC5»ENDMSG-NOy LANGUAGE-RPGI I+ 
FILES="FORMAT/DG/NOSHR* »MFCU-YES» 
PRINTER~YES»PGMDATA~YESs 
DFFMTERM-1»DFFNDF=1 »DFFSFDT-400, 
PRUF$Z-$ZFOR3«PRUFLNG-64> 
PACK=PROGRAM 

REPLACE SEQ NO. 00620 WITH ONE OF THE FOLLOWING IF DISKET 

GR DISK OUTPUT WILL BE USED FOR DFF SPECIFICATIONS RECOROS-- 
FILES~*FORMAT/DG/NOSHR'sN3741-Py 
FILES-" FORMAT /DG/NOSHR » DEFCARDS/CA/NOSHR® 

PROGRAM NAME-FORSC6.s ENDMSG-NO,LANGUAGE-RPGII, 
FILES-*FORMAT/DU/NOSHR*, 

PGMDATA~YES, 
DFFMTERM~i»DFFNDF-1,DFFSFDT—1434,% 
PRUF$Z-$ZFORC »PRUFLNG-869, 
PACK=PROGRAM 

PROGRAM NAME=FORSC7»sENDMSG-NO,LANGUAGE-RPGII, 
FILES="FORMAT/DG/NOSHR* »MFCU-YES» 
DFEMTERM=1,» DFFNDF-1,DFFSFOT-123, 
PRUF$Z-$ZFORG»PRUFLNG-256¢ 
PACK=PRGGRAM 

REPLACE SEQ NO. 00780 WITH ONE OF THE FOLLOWING IF DISKET 

OR DISK QUTPUT WILL BE USED FOR RPG 3PECIFICATIONS RECORDS-- 
FILES=*FORMAT/DG/NOSHR® »N3741-?¢ 
FILES="FORMAT/DG/NOSHR »RPGCARD 3/CA/NOSHR® ¢ 

PROGRAM NAME-FORSC8» ENOMSG-NO,LANGUAG =-RPGIIs 
FILES-"*FORMAT/DG/NOSHR*, 
DFFMTERM=1,D0FFNDF-1,DFFSFDT-123, 
PRUF$Z-$ZFORH»PRUFLNG-256, 

PACK=PROGRAM 
(SLASH ASTERISK) 


003i. 
00520 
06530 
00540 
00550 
00560 
00570 
00580 
06590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
006° > 
00680 
00690 
00700 
00710 
00720 
06730 
00740 
00750 
00760 | 
oo770 
00780 
60790 
00800 
008190 
963820 
00830 
00840 
00850 
008-— 
008 a of 
00880 
00890 
00900 
00910 


ee eR dO ak ak ak dk OK Re a EEE EKER RK EERE EEE KER REE EK REA ERE ERERKRRERE OOO. | 


som 


Fd 


MODEL 15 ASSIGNMENT SET 


*00G: 
*90030 
*00040 


we fe aaa eae fe a ae ee ak a ae aie ae a a a a RK RE REE EREREEEEKRRKEKE KERR EER SHS ES ES EE OOOSO 


x“ 
‘4 
% 

te 
44 
ad 
‘4 
44 
af 
tf 


PAUSE *#* MODEL 15 *#* 


LOAD SCCPAS,R2 REREREKKKKKE SCCPAS BeXRARKKRKRA HK 
FILE NAME~$CCPFILE,UNIT~R2_PACK=M1I5CCP 
FILE NAME-SCCPWORK,UNIT=-F1 »PACK-FIFLF1,TRACKS—5SsRETAIN<S 
RUN 
SET ID-FeACTION-REPLACE»sDFLTEXEC-NO 
SYSTEM MINUPA=14KoMINTPBUF-3089,¢ 
PGMREQL~20eCOMMANDL-89¢ 


tte DFFPACK=PROGRAM 


fo 
4f 
“é 
4 
‘é 
¢ 
‘é 
4¢ 
td 
t4 
/f 
‘f 
At 
St 
aA 
ff 
ff 
4/ 
xe 
‘“ 
Me ae 
fd 
“f 


‘i 
4d 
fd 
ff 
‘é 
‘t 
4d 
// 
‘f 
// 


FERMATTR ATYRID=1le TRANSLAT~YES»UPCASE-YES»BLKL-768,5 
DATAF3RM-MESSAGE »OFF3279-YES 
TERMATTR ATTRID—2_ TRANSLAT~YES,UPCASE-YESeBLKL~-S5i2,s 
DATAFORM=MESSAGE»DFF3270-NO 
BSCALINE TYPE-CSePOLLLIST~"00901,02° 
BSCATERM TERMI0-O09TYPE-3277M2,ATTRID—*1e2% yo 
COMMAND-YESeOFFACTN-HOLDs 
ADDRCHAR=*60604040* » POLLCHAR~*40404040% 
BSCATERM TERMID<Ole TYPE-3277M2,ATTRID—'1ledts 
COMMAND=YESeOFFACTN-HOLDs 
ADDRCHAR=*6060C1C1*_POLLCHAR-*4049C1C1* 
BSCATERM. TERMID-029TYPE-3286M2,ATTRID<-*1'"%4 
COMMAND-NO, 
ADDRCHAR~*6060C2C2*, POLL CHAR-*4040C2C2* 
TERMNAME NAME-TERMOLe TERMID-00 
TERMNAME NAME-TERMO2eTERMID-O02 
TERMNAME NAME=PRINT1«TERMID-02 
DISKFILE NAME-FORMAT »ORG-DeRECL-80 
ADO THE FILLOWING TwO CARDS FOR DISK OPTIONS- 
DISKFILE NAME~DFFCARDS »ORG-CeRECL-96 
DISKFILE NAME-RPGCARDS sORG-CeRECL~-96 
PROGRAM NAME-FORMAT»,ENDMSG-NOs 
DFFMTERM=1, DF FNDF=1,0FFSFOT=2569PGMDATA-NOs 
PACK=PROGRAM 
PROGRAM NAME-FORSC1.ENDMSG-NO> 
FILES=*FORMAT/DG/NOSHR® » 
DFEFMTERM—2_ DFFNDF=-8 y DFFSFDT~4009PGMDATA~YES» 
PRUF$Z-SZFORX o PRUFLNG~64,9 
PACK=PROGRAM 
PROGRAM NAME-FORSC2- ENDMSG-NO> 
FILES="FORMAT/DU/NOSHR ® » 
DFFEMTERM-2¢ DF FNDF-35D0FFSFDT-400, 
PRUFSZ-$ZFOR1 ePRUFLNG-1974s 
PACK=PROGRAM 





00060 
00070 
00080 
90090 
00100 
09116 
00120 
00130 
00140 
00150 
001606 
00170 
09180 
99190 
00200 
00210 
09220 
062390 
90240 
09259 
99266 
00270 
09280 
00290 
00300 
00310 
0032¢ 
00330 
00340 
00350 
0036 - 
0037~ 
00380 
00390 
00400 
00410 
00429 
00430 
00449 
69450 
960469 
00470 
0048 

0049- 
00506 


ms TM TM ST TM SS 
j! RA WRB Ws ®W 


PROGRAM NAME-FORSC3~-ENDMSG=NO, 
PRUFS$Z-SZFOR2_.PRUFLNG-64, 
FILES="FORMAT/DU/NOSHR", 
DFFMTERM=1.¢O0FFNDOF~-1,DFFSFDOT=256,5 
PACK=PROGRAM 

PROGRAM NAME-FORSC4 5 ENDOMSG-NO,e 
FILES-*FORMAT/DU/SNOSHR®, 

' OF FMTERM~1s DFFNDF-3 » DFFSFDT-450»,PGMDATA-YES, 
PRUFSZ-SZFOR4ePRUFLNG—-64, 
PACK=PROGRAM 
PROGRAM NAME-FORSC5.,ENDMSG-NO, 
FILES" FORMAT/DG/NOSHR* »MFCUZ=P 
PRINTER-YESyPGMDATA-YES, 
DFFMTERM=1,DFFNDF-1,0FFSFDT-400, 
PRUFSZ~-$ZFOR3«ePRUFLNG-64,5 
PACK =PROGRAM 

REPLACE SEQ NO. 00620 WITH ONE OF THE FOLLOWING IF OLSKET 

OR DISK OUTPUT WILL BE USED FOR DFF SPECIFICATIONS RECORDS-- 
FILES~"*FORMAT/DG/NOSHR® gN3741-P¢ 
FILES~*FORMAT/DG/NOSHR»DFFCARDS/CA/NOSHR ® 

PROGRAM NAME~FORSC6,ENDMSG-NO, 
FILES~"*FORMAT/DU/SNOSHR*, 

PGMDATA~YES, 
DFFMTERM~1>50FFNDOF<1,0FFSFOT-1434, 
PRUFSZ-$ZFORC ePRUFLNS-869, 
PACK=PROGRAM 

PROGRAM NAME=-FORSC7sENDMSG-NO, 
FILES-*FORMAT/DG/NOSHR® gMFCUZ—P 
DFFMTcRM=-1,0FFNOF~1,DFFSFOT-128,% 
PRUFSZ-S$ZFORGsPRUFLNG~-256, 
PACK=PROGRAM 

REPLACE SEQ NO. 00780 WITH ONE OF THE FOLLOWING IF DISKET 

OR DISK OUTPUT WILL BE USED FOR RPS SPECIFICATIONS RECORDS-- 

FILES-* FORMAT /DG/NOSHR* »N3741=-P, 
FILES" FORMAT /DG/NOSHR » RPGCARDS/CA/NOSHR ® » 

PROGRAM NAME~FORSC8.e ENDMSG-NO¢e 
FILES-"*FORMAT/OG/NOSHR*, 
DFFMTERM-1,DFFNDF-1,DFFSFOT-128, 
PRUFS$Z-S$ZFORH >» PRUFLNG-256¢ 
PACK=PROGRAM 
(SLASH ASTERISK) 





OOsa0 
005? ~ 
00539 
00544 ( 
00550 
09560 
90576 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00656 
09660 
006706 
00680 
00620 
00. 2 
00710 
00720 
00730 
00740 


00750 


00766 
00770. 
00780" 
00790 
00800 { 
00810 
00820 
90830 
00840 
00850 
00860 
00870 
00880 
oor > 
09900 
00910 


oo 


APPENDIX C 


(DEVICE MODIFICATIONS) 


eRe OR OR RR RE ERK KARMA ER EERE EKER ERE REE EERE EKER EKEE KERR BKE K 


x 
* 
* 
ite 
& 
& 
x 
& 


0011 
OoLL 


9010 
OOl1L 


9011 
JOL4S 
0014 
9014 
Q012 
Q012 
0012 
0014 


0012 


IF YOU WILL BE USING 5444 DISK 3R SIMULATION AREA ON A 3340 PACK= 
REPLACE THE PROVIDED SOURCE CARDS WITH THE FOLLOWING BEFORE 
“COMPILING 


THE PROGRAMS. 


FFORMAT OC 
FFORMATWKOC 
FFORMAT IP 
FFORMATWKUC 
FFORMAT UC 
FFORMAT IC 
FFORMAT UC 
FEORMAT UC 
FFORMAT UC 
FFORMAT IC 
FFORMAT UC 
FFORMAT IC 
FFORMAT IC 


F 


80 


800 
80 


89 
80 
80 
80 
80 
80 
80 
80 


80 


8GR 
80R 


80 
80R 


80R 
8OR 
BOR 
80R 
BOR 
BOR 


8O0R 


BOR 


BOR 


DISK45 - DISK 


HRA Ae He RK eR oe a he ee a a ak KK HK KR RRA KKK KERR AK KE KRK AK EKER SE RKK HERR 


DISK 
DISK 


DISK 
DISK 


DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
CISK 
DISK 


DISK 


& 
* 
* 
* 
a 
x 
Fd 
¥ 


FORL3D 
FORORL 


FOROR2 
FOROR2 


FORS 
FORSCL 
FORSC2 
FORSC3 
Forsc 
FORSCS | 
FORSC6 
FORSC? 


FORSC8 





EA A A A A ae a He He He a a He eR KEK ERK RRR RR ERA EERE REAR RREKKK KEE K 


ae MFCU = DISK OR DISK45 * 
@ x 
% TO USE DISK OUTPUT FOR THE DFF SPECIFICATION RECORDS-- % 
* REPLACE THE PROVIDED SOURCE CARDS WITH THE FOLLOWING BEFORE x 
* COMPILING THE PROGRAMS. T3 USE DISK FOR RPG SPECIFICATIONS - * 
* SELECT THE 2NO VERSION OF FORSC7 (FORXX7) RATHER THAN THE % 
t ORIGINAL. * 
x % 
= FOR 5444 DISK TYPE = USE DEVICE NAME "DISK * FOR THE % 
* FOLLOWING- FORSCS SEQ NO. 0016 % 
% FORPRT SEQ NO. OO1L * 
* FORSC7 SEQ NO. 0015 * 
x % 
He Ae Re Re ea ae a OO ER HR AIO CR EKO MOK RK KK 


OO15 F*FFCARDSO F 96 96 2 MFCU2 FORSCS 
0016 FOFFCARDSO F 96 96 2 DISK45 A FORSCS5 
C81 C KEY ADD 2 KEY FORSCS5 
3090 C TEST COMP */xt 86 FORSCS5 
9118 ODFFCARDSEADD 83 85N96 FORSC5 
3119 0 23 *// COPY FROM-READER,LIB® FORSCS 

120 0 44 "RARY-S,RETAIN-PyNAME~? FORSC5 

Lg: D SCRNIO 59 FORSCS5 
4123 O*FFCARDSE 83N96 FORSCS 
9124 GDOFFCARDSEADD 83N96 FORSCS 
0010 F*FFCARDSIP F 96 96 2 MFCUL FORPRT 
OOLL FOFFCARDSIP F 96 96 DISK45 FORPRT 


—~ 


MAG Be A ee He WM He A A a Ee a a HE A ERR EEE ERE KE RE REAKKERS EK 
MFCU = DISKET 
IF YOU WILL BE USING 3741 RATHER THAN MFCU FOR THE DFF & RPG 


%s 
# * 
x * 
% = 
* SPECIFICATIONS -- REPLACE THE FOLLOWING SOURCE CARDS BEFORE # 
* COMPILING THE PROGRAMS. # 
% % 
8 * 


Ha a ek ao ka ook ok ok ok kk oo i ea ode dk edo oR a a KE 


0015 FDFFCAROSS F 96 96 DISKET ~  FORSCS 
215 FRPGCARDS) 96 96 DISKET FORSC7 
ssi DPFCaROSIP F 96 .96 DISKET FORPRT 


C=2 








AR RE RK he Me Re ae he A A A KK RRA AERE CRE RK EER HER EK 


x 
* 
x 
* 
5 4 
* 
x 
* 
x 


0094 
0095 
9096 
9097 
CC98 
9099 
J1icd 
Qiol 


OL22 


Jge7h 
9272 
273 
0274 
O275 
0276 
O277 
0278 
0279 
0282 
O281 


3275/3284 


TF yOU wWILtt BE USING A 3275/3284 CONFIGURATION RATHER THAN 
A 328X PRINTER ATTACHED DIRECTLY OR THRU A 3271, 
ORIGINAL SOURCE PROGRAMS BEFORE 
**328X PRINTER IS OPTIONAL & NOT REQUIRED** 


FOLLOWING CHANGES TO THE 


COMPILING. 


Ooo goo a0 fn 


# # 


Q* 


LR Ql 


PlLe5 


PL o5 


a) 
Ww 


ty 

8 
14 
15 
21 
24 


* HGB* 
*0024° 


@e8 
*PROGID® 
7 g 


'sPROGIO7 


aAt?® 
"o001° 
"PRINTL® 


'OB° 
*9021' 
*PRINTL* 


i 


MAKE THE 


e ee ee He HH 


RK ER RE RE ERE ERR EER REE RRR EERE RARE ERE EERE RR EERE RRA REKEKREKR ERE HE 


FORSUL 
FORSCI 
FORSCL 
FORSC1 
FORSCL 
FORSCL 
FOR, Ul 
FORSC1L 
FORSCL 


FORSCz 
FORSC? 
FoRS 7 
FOR. 

FORSC.:( 
FORSC2 
FORSC? 
FORSC2’ 
FORSC2 
FORSC2 
FORSC2 


Ata 





| 
ET) 
uw 
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